(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 980285, 25201] NotebookOptionsPosition[ 975341, 25038] NotebookOutlinePosition[ 975684, 25053] CellTagsIndexPosition[ 975641, 25050] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"/*", " ", "Mathematica"}], " ", "notebook", " ", "for", " ", "the", " ", "transmembrane", " ", "potential", " ", "expression", " ", "for", " ", "an", " ", "myelinated", " ", "axon", " ", "that", " ", "is", " ", "under", " ", "a", " ", "tranversal", " ", "DC", " ", "electric", " ", "field", " ", "exposure", " ", "*", RowBox[{"/", " ", "\[IndentingNewLine]", RowBox[{"/*", " ", "Step"}]}], " ", "1"}], ":", " ", RowBox[{ RowBox[{"Solve", " ", "equations", " ", RowBox[{"(", "A5", ")"}]}], "-", " ", RowBox[{ RowBox[{"(", "A12", ")"}], " ", "in", " ", "Appendix", " ", "*", "/"}]}]}]], "Input", CellChangeTimes->{{3.7170869450666018`*^9, 3.7170869470397143`*^9}, { 3.7170889665952263`*^9, 3.7170890917033825`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "E0"}], " ", "a"}], " ", "+", RowBox[{"C0", "/", "a"}]}], "\[Equal]", RowBox[{ RowBox[{"a", " ", "A1"}], "+", RowBox[{"C1", "/", "a"}]}]}], "\[IndentingNewLine]", "&&", RowBox[{ RowBox[{"S0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "E0"}], "-", RowBox[{"C0", "/", RowBox[{"a", "^", "2"}]}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"A1", "-", RowBox[{"C1", "/", RowBox[{"a", "^", "2"}]}]}], ")"}], " ", "S1"}]}], "\[IndentingNewLine]", "&&", RowBox[{ RowBox[{ RowBox[{"b", " ", "A1"}], "+", RowBox[{"C1", "/", "b"}]}], "\[Equal]", RowBox[{ RowBox[{"b", " ", "A2"}], "+", RowBox[{"C2", "/", "b"}]}]}], "\[IndentingNewLine]", "&&", RowBox[{ RowBox[{"S1", " ", RowBox[{"(", RowBox[{"A1", "-", RowBox[{"C1", "/", RowBox[{"b", "^", "2"}]}]}], ")"}]}], "\[Equal]", RowBox[{"S2", " ", RowBox[{"(", RowBox[{"A2", "-", RowBox[{"C2", "/", RowBox[{"b", "^", "2"}]}]}], ")"}]}]}], "\[IndentingNewLine]", "&&", RowBox[{ RowBox[{ RowBox[{"c", " ", "A2"}], "+", RowBox[{"C2", "/", "c"}]}], "==", RowBox[{ RowBox[{"c", " ", "A3"}], "+", RowBox[{"C3", "/", "c"}]}]}], "\[IndentingNewLine]", "&&", RowBox[{ RowBox[{"S2", RowBox[{"(", RowBox[{"A2", "-", RowBox[{"C2", "/", RowBox[{"c", "^", "2"}]}]}], ")"}]}], "==", RowBox[{"S3", " ", RowBox[{"(", RowBox[{"A3", "-", RowBox[{"C3", "/", RowBox[{"c", "^", "2"}]}]}], ")"}]}]}], "\[IndentingNewLine]", "&&", RowBox[{ RowBox[{ RowBox[{"d", " ", "A3"}], "+", RowBox[{"C3", "/", "d"}]}], "\[Equal]", RowBox[{"d", " ", "A4"}]}], "\[IndentingNewLine]", "&&", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{"A3", "-", RowBox[{"C3", "/", RowBox[{"d", "^", "2"}]}]}], ")"}]}], "==", RowBox[{"S4", " ", "A4"}]}]}], ",", RowBox[{"{", RowBox[{ "C0", ",", "A1", ",", "C1", ",", "A2", ",", " ", "C2", ",", " ", "A3", ",", " ", "C3", ",", "A4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6984037219586754`*^9, 3.698403874214943*^9}, { 3.6984040244120064`*^9, 3.698404058747667*^9}, {3.7004339668649387`*^9, 3.7004340558942947`*^9}, {3.7004340950191636`*^9, 3.7004341588700757`*^9}, { 3.7004342295694*^9, 3.7004342461054287`*^9}, {3.7170868895014234`*^9, 3.717087066121526*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"C0", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}], ",", RowBox[{"A1", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S1", SuperscriptBox["b", "3"]]}], "+", FractionBox["S2", SuperscriptBox["b", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S0", "a"]}], "-", FractionBox["S1", "a"]}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S1", SuperscriptBox["b", "3"]]}], "+", FractionBox["S2", SuperscriptBox["b", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S0", SuperscriptBox["a", "3"]]}], "+", FractionBox["S1", SuperscriptBox["a", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "b"], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S1", "b"], "+", FractionBox["S2", "b"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ",", RowBox[{"C1", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}], ",", RowBox[{"A2", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}], ",", RowBox[{"C2", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}], ",", RowBox[{"A3", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", "S1", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", "S1", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}], ",", RowBox[{"C3", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}], ",", RowBox[{"A4", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.7170870943441396`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7170871791359897`*^9, 3.7170872100577583`*^9}}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087212135877*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", "C0", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], " ", "E0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["b", "2"]}], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170872260816746`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A1", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S1", SuperscriptBox["b", "3"]]}], "+", FractionBox["S2", SuperscriptBox["b", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S0", "a"]}], "-", FractionBox["S1", "a"]}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S1", SuperscriptBox["b", "3"]]}], "+", FractionBox["S2", SuperscriptBox["b", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S0", SuperscriptBox["a", "3"]]}], "+", FractionBox["S1", SuperscriptBox["a", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "b"], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S1", "b"], "+", FractionBox["S2", "b"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7170872376713376`*^9, 3.7170872670250163`*^9}}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S1", SuperscriptBox["b", "3"]]}], "+", FractionBox["S2", SuperscriptBox["b", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S0", "a"], "+", FractionBox["S1", "a"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S1", SuperscriptBox["b", "3"]]}], "+", FractionBox["S2", SuperscriptBox["b", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S0", SuperscriptBox["a", "3"]]}], "+", FractionBox["S1", SuperscriptBox["a", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "b"], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S1", "b"], "+", FractionBox["S2", "b"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087270042189*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "A1", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087281888867*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C1", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7170872947526026`*^9, 3.7170873228822117`*^9}}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170873249333286`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "C1", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087332422757*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7170873471866016`*^9, 3.7170873480176487`*^9}, 3.7170873840937123`*^9}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170873855827975`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "A2", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", "S1", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087398655545*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C2", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.717087418737694*^9, 3.7170874401269174`*^9}, { 3.7170874728417883`*^9, 3.7170875005533733`*^9}}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170875019974566`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "C2", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170875091008625`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A3", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", "S1", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", "S1", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7170875215825768`*^9, 3.7170875228276477`*^9}, 3.7170875684272556`*^9}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", "S1", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", "S1", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087569997346*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "A3", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170875774427714`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C3", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7170875940197196`*^9, 3.7170876181651006`*^9}}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S4"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087619468175*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "C3", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "S3"}], "+", "S4"}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170876265905824`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A4", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7170876437445636`*^9, 3.717087645052638*^9}, 3.71708770416702*^9}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170877055380983`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "A4", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170877128715177`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"/", " ", "Step"}], " ", "2"}], ":", " ", RowBox[{ "Analytical", " ", "expressions", " ", "for", " ", "the", " ", "voltages", " ", "in", " ", "all", " ", "the", " ", "model", " ", "area"}], " ", ":", " ", "0"}], ",", "1", ",", "2", ",", "3", ",", RowBox[{"4.", " ", "*", RowBox[{"/", " "}]}]}]], "Input", CellChangeTimes->{{3.717088915029277*^9, 3.7170889461080546`*^9}, { 3.71708911177353*^9, 3.7170891191459517`*^9}, {3.717162390122672*^9, 3.7171624170014725`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"V0", "[", RowBox[{"r_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"-", "E0"}], " ", "r", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", RowBox[{ RowBox[{"C0", "/", "r"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}]], "Input", CellChangeTimes->{3.700435343143757*^9, 3.700435388599037*^9, 3.717086768838522*^9}], Cell[BoxData[ RowBox[{ RowBox[{"V1", "[", RowBox[{"r_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{ RowBox[{"r", " ", "A1", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", RowBox[{ RowBox[{"C1", "/", "r"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.717086775051877*^9, 3.71708678489244*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"V2", "[", RowBox[{"r_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{ RowBox[{"r", " ", "A2", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", RowBox[{ RowBox[{"C2", "/", "r"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.6984047529880867`*^9, 3.698404765811309*^9}, { 3.7170867775760217`*^9, 3.7170867880976233`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"V3", "[", RowBox[{"r_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{ RowBox[{"r", " ", "A3", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", RowBox[{ RowBox[{"C3", "/", "r"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.6984048049361773`*^9, 3.698404825247413*^9}, { 3.700435414370282*^9, 3.70043546405637*^9}, {3.717086779679142*^9, 3.717086790589766*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"V4", "[", RowBox[{"r_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{"r", " ", "A4", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], "Input", CellChangeTimes->{{3.700435472667585*^9, 3.700435493946022*^9}, 3.717086781868267*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"V0", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.6984048473370523`*^9, 3.6984048497082567`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "E0"}], " ", "r", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "E0", " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.7170878013085756`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%24", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"E0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "4"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "4"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087821279718*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"V1", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.6984048834979153`*^9, 3.698404883622716*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S2", " ", "S3", " ", "S4"}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "E0", " ", "r", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S1", SuperscriptBox["b", "3"]]}], "+", FractionBox["S2", SuperscriptBox["b", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S0", "a"], "+", FractionBox["S1", "a"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S1", SuperscriptBox["b", "3"]]}], "+", FractionBox["S2", SuperscriptBox["b", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S0", SuperscriptBox["a", "3"]]}], "+", FractionBox["S1", SuperscriptBox["a", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "b"], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S1", "b"], "+", FractionBox["S2", "b"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S2", " ", "S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], SuperscriptBox["c", "3"]]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["S2", SuperscriptBox["c", "3"]]}], "+", FractionBox["S3", SuperscriptBox["c", "3"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], "+", FractionBox[ RowBox[{"S2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "S3", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"S2", " ", "S3"}], "d"]}], "-", FractionBox[ RowBox[{"S2", " ", "S4"}], "d"]}], ")"}]}], "c"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["S2", "c"], "+", FractionBox["S3", "c"]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ FractionBox["S3", "d"], "+", FractionBox["S4", "d"]}], ")"}]}], "+", FractionBox[ RowBox[{"S3", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "S3"}], "+", RowBox[{"d", " ", "S4"}]}], ")"}]}], SuperscriptBox["c", "2"]]}], ")"}]}]}], ")"}]}], SuperscriptBox["b", "2"]]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.717087834513475*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%26", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", SuperscriptBox["a", "2"], " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "4"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170878448820677`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"V2", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.698404896867139*^9, 3.698404901999548*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SuperscriptBox["b", "2"], " ", "E0", " ", "r", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"4", " ", "E0", " ", "S0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3", " ", "S4"}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.7170878637681484`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%28", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", "S1", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "4"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087873500705*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"V3", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.6984049180207767`*^9, 3.6984049181611767`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "r", " ", "S0", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", "S1", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", "S1", " ", "S4"}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["b", "2"], " ", "E0", " ", "S0", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S4"}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.717087896714033*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%30", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170879053475266`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"V4", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]], "Input", CellChangeTimes->{{3.7004355608389397`*^9, 3.7004355727573605`*^9}}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "r", " ", "S0", " ", "S1", " ", "S2", " ", "S3", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S3"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", SuperscriptBox["S3", "2"]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S2", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", SuperscriptBox["S2", "2"], " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S1", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["S1", "2"], " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "-", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S0", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["c", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "4"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "4"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", SuperscriptBox["d", "2"], " ", "S1", " ", "S2", " ", "S3", " ", "S4"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717087922808525*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "%32", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "r", " ", "S0", " ", "S1", " ", "S2", " ", "S3", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170879298559284`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"/*", " ", "Step"}], " ", "3"}], ":", " ", RowBox[{"Expression", " ", "for", " ", "voltage", " ", RowBox[{"(", "V3", ")"}], " ", "on", " ", "each", " ", "side", " ", "of", " ", "the", " ", "axonal", " ", "membrane", " ", "*", RowBox[{"/", " "}]}]}]], "Input", CellChangeTimes->{{3.7170888556068783`*^9, 3.7170888919939594`*^9}, { 3.7170891416162367`*^9, 3.7170891445594053`*^9}, 3.7170891893269663`*^9, { 3.7170892216138124`*^9, 3.717089268285482*^9}, {3.717162451898672*^9, 3.7171624640666723`*^9}}], Cell[BoxData[ RowBox[{"V3", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.700436651967256*^9, 3.700436689048521*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "=", "c"}]], "Input", CellChangeTimes->{{3.700437220603855*^9, 3.7004372358294816`*^9}}], Cell[BoxData["c"], "Output", CellChangeTimes->{3.700437237576685*^9, 3.7170881185417204`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"V3out", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7170881830064077`*^9, 3.7170882440388985`*^9}}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", "c", " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717088190442833*^9, 3.7170882455399847`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "V3out", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", "c", " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170882514673233`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"r", "=", "d"}]], "Input", CellChangeTimes->{{3.700437283222365*^9, 3.7004372845327673`*^9}}], Cell[BoxData["d"], "Output", CellChangeTimes->{3.7004372862175703`*^9, 3.7170882736025896`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"V3in", "=", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.700437287964773*^9, 3.700437299383993*^9}}], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.700437301068796*^9, 3.717088294323775*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "V3in", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "d", " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", "S3", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.717088304712369*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"/*", " ", "Step"}], " ", "4"}], ":", " ", RowBox[{"Transmembrane", " ", "potential", " ", "calculaton"}]}], ",", " ", RowBox[{ "which", " ", "is", " ", "defined", " ", "as", " ", "the", " ", "difference", " ", "between", " ", "V3in", " ", "and", " ", RowBox[{"V3out", "."}], " ", "*", "/"}]}]], "Input", CellChangeTimes->{{3.717088760261425*^9, 3.717088793154306*^9}, { 3.7170891655766077`*^9, 3.717089177894312*^9}, {3.717089211720247*^9, 3.717089211811252*^9}, {3.7171624854854727`*^9, 3.7171625088230724`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Vm", "=", RowBox[{"V3in", "-", "V3out"}]}]], "Input", CellChangeTimes->{{3.700437321551632*^9, 3.7004373288992453`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", "c", " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", SuperscriptBox["c", "2"], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.71708832361345*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"/*", " ", "Expression"}], " ", "of", " ", "Vm", " ", "in", " ", "equation", " ", RowBox[{ RowBox[{"(", "11", ")"}], "."}], " ", "*", RowBox[{"/", " "}]}]], "Input", CellChangeTimes->{{3.717088466596628*^9, 3.7170884937171793`*^9}, { 3.7171625640002728`*^9, 3.7171625680406723`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "Vm", "]"}]], "Input", NumberMarks->False], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "2"], " ", "c", " ", RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}], " ", "E0", " ", "S0", " ", "S1", " ", "S2", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "S3"}], "+", "S4"}], ")"}]}], "+", RowBox[{"c", " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S0", "-", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["a", "2"], " ", RowBox[{"(", RowBox[{"S0", "+", "S1"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S1", "-", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["b", "2"], " ", RowBox[{"(", RowBox[{"S1", "+", "S2"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"S2", "-", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "-", "S4"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"S2", "+", "S3"}], ")"}], " ", RowBox[{"(", RowBox[{"S3", "+", "S4"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.7170883301738253`*^9}] }, Open ]] }, WindowSize->{1350, 686}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, FrontEndVersion->"10.1 for Microsoft Windows (64-bit) (March 23, 2015)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 812, 17, 52, "Input"], Cell[CellGroupData[{ Cell[1395, 41, 2718, 81, 172, "Input"], Cell[4116, 124, 229211, 5423, 3178, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[233364, 5552, 50061, 1241, 782, "Input"], Cell[283428, 6795, 48733, 1240, 681, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[332198, 8040, 83, 2, 31, "Input"], Cell[332284, 8044, 5990, 180, 99, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[338311, 8229, 14533, 377, 714, "Input"], Cell[352847, 8608, 14182, 373, 503, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[367066, 8986, 87, 2, 31, "Input"], Cell[367156, 8990, 4530, 133, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[371723, 9128, 29661, 748, 462, "Input"], Cell[401387, 9878, 28828, 747, 401, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[430252, 10630, 87, 2, 31, "Input"], Cell[430342, 10634, 4568, 134, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[434947, 10773, 24466, 624, 399, "Input"], Cell[459416, 11399, 23730, 622, 338, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[483183, 12026, 87, 2, 31, "Input"], Cell[483273, 12030, 3722, 109, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[487032, 12144, 24954, 635, 399, "Input"], Cell[511989, 12781, 24184, 633, 338, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[536210, 13419, 87, 2, 31, "Input"], Cell[536300, 13423, 3762, 110, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[540099, 13538, 23543, 603, 399, "Input"], Cell[563645, 14143, 22826, 601, 338, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[586508, 14749, 87, 2, 31, "Input"], Cell[586598, 14753, 3390, 99, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[590025, 14857, 23644, 605, 399, "Input"], Cell[613672, 15464, 22952, 604, 338, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[636661, 16073, 87, 2, 31, "Input"], Cell[636751, 16077, 3211, 98, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[639999, 16180, 23387, 598, 377, "Input"], Cell[663389, 16780, 22682, 596, 338, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[686108, 17381, 87, 2, 31, "Input"], Cell[686198, 17385, 3335, 97, 55, "Output"] }, Open ]], Cell[689548, 17485, 556, 13, 31, "Input"], Cell[690107, 17500, 407, 12, 31, "Input"], Cell[690517, 17514, 364, 10, 31, "Input"], Cell[690884, 17526, 419, 11, 31, "Input"], Cell[691306, 17539, 463, 12, 31, "Input"], Cell[691772, 17553, 276, 7, 31, "Input"], Cell[CellGroupData[{ Cell[692073, 17564, 155, 3, 31, "Input"], Cell[692231, 17569, 50220, 1247, 722, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[742488, 18821, 88, 2, 31, "Input"], Cell[742579, 18825, 9533, 260, 143, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[752149, 19090, 153, 3, 31, "Input"], Cell[752305, 19095, 44780, 1122, 898, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[797122, 20222, 88, 2, 31, "Input"], Cell[797213, 20226, 6044, 170, 99, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[803294, 20401, 151, 3, 31, "Input"], Cell[803448, 20406, 49225, 1257, 665, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[852710, 21668, 88, 2, 31, "Input"], Cell[852801, 21672, 4513, 127, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[857351, 21804, 155, 3, 31, "Input"], Cell[857509, 21809, 47098, 1206, 643, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[904644, 23020, 88, 2, 31, "Input"], Cell[904735, 23024, 3910, 110, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[908682, 23139, 155, 3, 31, "Input"], Cell[908840, 23144, 22741, 597, 338, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[931618, 23746, 88, 2, 31, "Input"], Cell[931709, 23750, 3396, 98, 55, "Output"] }, Open ]], Cell[935120, 23851, 573, 11, 31, "Input"], Cell[935696, 23864, 4073, 112, 98, "Input"], Cell[CellGroupData[{ Cell[939794, 23980, 117, 2, 31, "Input"], Cell[939914, 23984, 94, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[940045, 23990, 4080, 112, 98, "Input"], Cell[944128, 24104, 3679, 107, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[947844, 24216, 90, 2, 31, "Input"], Cell[947937, 24220, 3657, 107, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[951631, 24332, 117, 2, 31, "Input"], Cell[951751, 24336, 96, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[951884, 24342, 4075, 112, 98, "Input"], Cell[955962, 24456, 3930, 110, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[959929, 24571, 89, 2, 31, "Input"], Cell[960021, 24575, 3394, 98, 55, "Output"] }, Open ]], Cell[963430, 24676, 597, 12, 31, "Input"], Cell[CellGroupData[{ Cell[964052, 24692, 148, 3, 31, "Input"], Cell[964203, 24697, 7223, 213, 143, "Output"] }, Open ]], Cell[971441, 24913, 332, 8, 31, "Input"], Cell[CellGroupData[{ Cell[971798, 24925, 87, 2, 31, "Input"], Cell[971888, 24929, 3437, 106, 77, "Output"] }, Open ]] } ] *) (* End of internal cache information *)