(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 607537, 22325] NotebookOptionsPosition[ 604902, 22232] NotebookOutlinePosition[ 605238, 22247] CellTagsIndexPosition[ 605195, 22244] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Quit", "[", "]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", "FeynCalc`"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ StyleBox["\<\"FeynCalc \"\>", "Text", StripOnInput->False, FontWeight->Bold], "\[InvisibleSpace]", StyleBox["\<\"9.2.0 (development version). For help, use the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"documentation", " ", "center"}], BaseStyle->"Link", ButtonData:>"paclet:FeynCalc/", ButtonNote->"paclet:FeynCalc/"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\", check out the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox["wiki", BaseStyle->"Hyperlink", ButtonData:>{ URL["https://github.com/FeynCalc/feyncalc/wiki"], None}, ButtonNote->"https://github.com/FeynCalc/feyncalc/wiki"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\" or write to the \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"mailing", " ", RowBox[{"list", "."}]}], BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.feyncalc.org/forum/"], None}, ButtonNote->"http://www.feyncalc.org/forum/"], DisplayForm], "Text", StripOnInput->False]}], SequenceForm[ Style["FeynCalc ", "Text", Bold], Style["9.2.0 (development version). For help, use the ", "Text"], Style[ DisplayForm[ ButtonBox[ "documentation center", BaseStyle -> "Link", ButtonData :> "paclet:FeynCalc/", ButtonNote -> "paclet:FeynCalc/"]], "Text"], Style[", check out the ", "Text"], Style[ DisplayForm[ ButtonBox["wiki", ButtonData :> { URL["https://github.com/FeynCalc/feyncalc/wiki"], None}, BaseStyle -> "Hyperlink", ButtonNote -> "https://github.com/FeynCalc/feyncalc/wiki"]], "Text"], Style[" or write to the ", "Text"], Style[ DisplayForm[ ButtonBox["mailing list.", ButtonData :> { URL["http://www.feyncalc.org/forum/"], None}, BaseStyle -> "Hyperlink", ButtonNote -> "http://www.feyncalc.org/forum/"]], "Text"]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ StyleBox["\<\"See also the supplied \"\>", "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox[ TagBox[ ButtonBox[ RowBox[{"examples", "."}], BaseStyle->"Hyperlink", ButtonFunction:>SystemOpen[ FileNameJoin[{FeynCalc`$FeynCalcDirectory, "Examples"}]], Evaluator->Automatic, Method->"Preemptive"], DisplayForm], "Text", StripOnInput->False], "\[InvisibleSpace]", StyleBox["\<\" If you use FeynCalc in your research, please cite\"\>", "Text", StripOnInput->False]}], SequenceForm[ Style["See also the supplied ", "Text"], Style[ DisplayForm[ ButtonBox[ "examples.", BaseStyle -> "Hyperlink", ButtonFunction :> SystemOpen[ FileNameJoin[{FeynCalc`$FeynCalcDirectory, "Examples"}]], Evaluator -> Automatic, Method -> "Preemptive"]], "Text"], Style[" If you use FeynCalc in your research, please cite", "Text"]], Editable->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ StyleBox["\<\" \[Bullet] V. Shtabovenko, R. Mertig and F. Orellana, Comput. \ Phys. Commun., 207C, 432-444, 2016, arXiv:1601.01167\"\>", "Text", StripOnInput->False], TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ StyleBox["\<\" \[Bullet] R. Mertig, M. B\[ODoubleDot]hm, and A. Denner, \ Comput. Phys. Commun., 64, 345-359, 1991.\"\>", "Text", StripOnInput->False], TraditionalForm]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"SP", "[", RowBox[{"k1", ",", "k2"}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"LorentzIndex", "[", "mu", "]"}], ",", RowBox[{"Momentum", "[", RowBox[{"Polarization", "[", RowBox[{"p", ",", "I"}], "]"}], "]"}]}], "]"}], " ", RowBox[{"FV", "[", RowBox[{"k1", ",", "mu"}], "]"}], " ", RowBox[{"FV", "[", RowBox[{"k2", ",", "nu"}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"LorentzIndex", "[", "nu", "]"}], ",", RowBox[{"Momentum", "[", RowBox[{"Polarization", "[", RowBox[{"p", ",", RowBox[{"-", "I"}]}], "]"}], "]"}]}], "]"}]}], "//", RowBox[{ RowBox[{"DoPolarizationSums", "[", RowBox[{"#", ",", "p"}], "]"}], "&"}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["k1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["k2", TraditionalForm], "_"], TraditionalForm]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["k1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p", TraditionalForm], "_"], TraditionalForm]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["k2", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p", TraditionalForm], "_"], TraditionalForm]}], ")"}]}], "M"], "-", RowBox[{ FormBox[ OverscriptBox[ FormBox["k1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["k2", TraditionalForm], "_"], TraditionalForm]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCClearScalarProducts", "[", "]"}], ";", RowBox[{ RowBox[{"ScalarProduct", "[", RowBox[{"p", ",", "p"}], "]"}], "=", "M"}], ";", " ", RowBox[{"MatchQ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SP", "[", RowBox[{"k1", ",", "k2"}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"LorentzIndex", "[", "mu", "]"}], ",", RowBox[{"Momentum", "[", RowBox[{"Polarization", "[", RowBox[{"p", ",", "I"}], "]"}], "]"}]}], "]"}], " ", RowBox[{"FV", "[", RowBox[{"k1", ",", "mu"}], "]"}], " ", RowBox[{"FV", "[", RowBox[{"k2", ",", "nu"}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"LorentzIndex", "[", "nu", "]"}], ",", RowBox[{"Momentum", "[", RowBox[{"Polarization", "[", RowBox[{"p", ",", RowBox[{"-", "I"}]}], "]"}], "]"}]}], "]"}]}], "//", RowBox[{ RowBox[{"DoPolarizationSums", "[", RowBox[{"#", ",", "p"}], "]"}], "&"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "k1", "]"}], ",", RowBox[{"Momentum", "[", "k2", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "k1", "]"}], ",", RowBox[{"Momentum", "[", "k2", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "k1", "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "k2", "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], ")"}], "/", RowBox[{"Pair", "[", RowBox[{ RowBox[{"Momentum", "[", "p", "]"}], ",", RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}]}], ")"}]}]}], "]"}]}]], "Input"], Cell[BoxData[ FormBox["True", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tr", "[", RowBox[{ RowBox[{ RowBox[{"DiracMatrix", "[", "sigma", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"DiracSlash", "[", "k1", "]"}], " ", "-", " ", RowBox[{"DiracSlash", "[", "p1", "]"}], " ", "-", "\n", "\t", "m"}], ")"}], ".", RowBox[{"DiracMatrix", "[", "rho", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"DiracSlash", "[", "p1", "]"}], " ", "+", " ", "m"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"DiracSlash", "[", "p2", "]"}], " ", "-", " ", "m"}], ")"}]}], ",", "\n", "\t", RowBox[{"PairCollect", " ", "->", " ", "True"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"4", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["k1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm]}], ")"}]}], "-", RowBox[{ FormBox[ SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ OverscriptBox[ FormBox["k1", TraditionalForm], "_"], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm]}], ")"}]}], "+", RowBox[{ SuperscriptBox["m", "2"], " ", FormBox[ SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ OverscriptBox["g", "_"], RowBox[{ FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["k1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["k1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["k1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["k1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p2", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["rho", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ OverscriptBox[ FormBox["p1", TraditionalForm], "_"], TraditionalForm], FormBox[ FormBox[ FormBox["sigma", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aa", "=", RowBox[{ RowBox[{"2", "*", "OPEm", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{"SOD", "[", "p", "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "OPEm"}], ")"}]}]}], "-", RowBox[{"2", "*", "D", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}]}], "-", RowBox[{"4", "*", "OPEm", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}]}], "-", RowBox[{"2", "*", "D", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}]}], "-", RowBox[{"2", "*", "OPEm", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}]}], "-", RowBox[{"2", "*", "OPEm", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "OPEm"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"SOD", "[", "p", "]"}]}], "+", RowBox[{"SOD", "[", "q", "]"}]}], ")"}]}], "-", RowBox[{"4", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], "*", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "-", RowBox[{"8", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}]}], "+", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], ")"}]}], "+", RowBox[{"8", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], "*", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], "+", RowBox[{"4", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], "*", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], "+", RowBox[{"4", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "+", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], ")"}]}], "+", RowBox[{"8", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "+", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], ")"}]}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{"2", " ", "D", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "2"], ".", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}]}]], TraditionalForm]}]}], "-", RowBox[{"2", " ", "D", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}], "+", RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["p", TraditionalForm]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], RowBox[{"m", "-", "1"}]], " ", FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}], "-", RowBox[{"2", " ", "m", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], "-", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["p", TraditionalForm]}]}], ")"}], " ", FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}], "-", RowBox[{"4", " ", "m", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "2"], ".", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}]}]], TraditionalForm]}], "-", RowBox[{"2", " ", "m", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}], "-", RowBox[{"4", " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "2"], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}], "-", RowBox[{"8", " ", RowBox[{"(", RowBox[{ FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], "-", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "3"]}]], TraditionalForm]}], "+", RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "3"], ".", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}]}]], TraditionalForm]}], "+", RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "2"], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}], "+", RowBox[{"4", " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], "-", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "2"], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], "-", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "3"]}]], TraditionalForm]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bb", "=", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "*", "D", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}]}], "-", RowBox[{"4", "*", "OPEm", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}]}], "-", RowBox[{"2", "*", "D", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}]}], "-", RowBox[{"4", "*", "OPEm", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "OPEm"}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"SOD", "[", "p", "]"}]}], "+", RowBox[{"SOD", "[", "q", "]"}]}], ")"}]}], "+", RowBox[{"8", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], "*", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], "+", RowBox[{"8", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], "*", RowBox[{"(", RowBox[{ RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}], "-", RowBox[{"2", "*", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "+", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], ")"}]}], "+", RowBox[{"8", "*", RowBox[{"FAD", "[", RowBox[{"q", ",", "q", ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ",", RowBox[{ RowBox[{"-", "p"}], "+", "q"}]}], "]"}], "*", RowBox[{ RowBox[{"SOD", "[", "q", "]"}], "^", "OPEm"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "+", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], ")"}]}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{"2", " ", "D", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "2"], ".", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}]}]], TraditionalForm]}]}], "-", RowBox[{"2", " ", "D", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}], "-", RowBox[{"4", " ", "m", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], RowBox[{"m", "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], "-", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["p", TraditionalForm]}]}], ")"}], " ", FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}], "-", RowBox[{"4", " ", "m", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "2"], ".", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}]}]], TraditionalForm]}], "+", RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "3"], ".", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}]}]], TraditionalForm]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}]}]}], "+", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], "+", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "3"]}]], TraditionalForm]}], "+", RowBox[{"8", " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], "-", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\<\"\[CapitalDelta]\"\>", TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox["q", TraditionalForm]}], ")"}], "m"], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False], ")"}], "2"], ".", SuperscriptBox[ RowBox[{"(", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False], ")"}], "2"]}]], TraditionalForm]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"aa", "-", "bb"}], "]"}]], "Input"], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"inp", "=", RowBox[{ FractionBox["1", "2"], " ", "CA", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"FAD", "[", "q", "]"}], "2"], " ", SuperscriptBox[ RowBox[{"FAD", "[", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"FAD", "[", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], "]"}]}], " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]3"}], "]"}]}], "+", RowBox[{ RowBox[{"FAD", "[", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]3"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Mu]2"}], "]"}]}], "+", RowBox[{ RowBox[{"FAD", "[", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Mu]3"}], "]"}]}], "-", RowBox[{ RowBox[{"FAD", "[", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Mu]3"}], "]"}]}], "+", RowBox[{"MTD", "[", RowBox[{"\[Mu]2", ",", "\[Mu]3"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"FAD", "[", "q", "]"}]}], " ", RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Nu]3"}], "]"}]}], "+", RowBox[{"MTD", "[", RowBox[{"\[Nu]2", ",", "\[Nu]3"}], "]"}]}], ")"}], " ", RowBox[{"SD", "[", RowBox[{"b", ",", "c"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}]}], "+", RowBox[{ RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}]}], "+", RowBox[{ RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "-", RowBox[{ RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], "+", RowBox[{ RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], "+", RowBox[{ RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Mu]2"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], "+", RowBox[{ RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]2", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}], "-", RowBox[{"2", " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "+", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Mu]"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]2", ",", "\[Nu]2"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}], "-", RowBox[{"2", " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Nu]3"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]3", ",", "\[Nu]"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}]}], "+", RowBox[{ RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Nu]3"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]3", ",", "\[Nu]"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}]}], "+", RowBox[{ RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Mu]3"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Nu]", ",", "\[Nu]3"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Nu]3"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]3", ",", "\[Nu]"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Nu]3"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]3", ",", "\[Nu]"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "-", RowBox[{ RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Nu]3"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]3", ",", "\[Nu]"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], "+", RowBox[{ RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Nu]3"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Mu]3", ",", "\[Nu]"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], "+", RowBox[{ RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Mu]3"}], "]"}], " ", RowBox[{"MTD", "[", RowBox[{"\[Nu]", ",", "\[Nu]3"}], "]"}], " ", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], "+", RowBox[{ RowBox[{"MTD", "[", RowBox[{"\[Mu]3", ",", "\[Nu]3"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FVD", "[", RowBox[{"p", ",", "\[Nu]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}], "-", RowBox[{"2", " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "+", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"FVD", "[", RowBox[{"q", ",", "\[Nu]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"SPD", "[", RowBox[{"p", ",", "p"}], "]"}], "-", RowBox[{"2", " ", RowBox[{"SPD", "[", RowBox[{"p", ",", "q"}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"SPD", "[", RowBox[{"q", ",", "q"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["gc", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox["b", TraditionalForm], FormBox["c", TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FractionBox["1", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False]], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FractionBox["1", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False]], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}], "+", RowBox[{"2", " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}]}], "-", RowBox[{"2", " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}]}]}], "+", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], "+", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm]}], ")"}]}], "-", RowBox[{ FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}]}]}], "+", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm]}]}], ")"}]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}], "+", RowBox[{"2", " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}]}], "-", RowBox[{"2", " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}]}]}], "+", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], "+", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm]}], ")"}]}], "-", RowBox[{ FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], ")"}]}]}], "+", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], TraditionalForm], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm], "-", RowBox[{ FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FractionBox["1", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox["q", "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", $CellContext`q^2, "]"], Editable->False]], TraditionalForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", RowBox[{"(", RowBox[{"-", FormBox[ FractionBox["1", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False]], TraditionalForm]}], ")"}]}], "+", RowBox[{ FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FractionBox["1", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False]], TraditionalForm]}], "+", RowBox[{ FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FractionBox["1", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False]], TraditionalForm]}], "-", RowBox[{ FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], TraditionalForm], " ", FormBox[ FractionBox["1", InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "2"], "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", (-$CellContext`p + $CellContext`q)^2, "]"], Editable->False]], TraditionalForm]}], "+", FormBox[ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], TraditionalForm]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"res", "=", RowBox[{"Contract", "[", RowBox[{"inp", ",", RowBox[{"FCVerbose", "\[Rule]", "0"}]}], "]"}]}], ")"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"0.257452`", ",", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "8"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "8"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["5", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"6", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{ FractionBox["5", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"8", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", RowBox[{"5", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", RowBox[{"6", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"5", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"5", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"8", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{ SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{ FractionBox["5", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{ FractionBox["5", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"6", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", RowBox[{ FractionBox["5", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["5", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "8"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "8"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{ FractionBox["13", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{ SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{ FractionBox["3", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{ SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", FractionBox[ RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"6", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"6", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"6", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"2", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"5", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"5", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"3", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{"6", " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "-", RowBox[{"4", " ", SubscriptBox["C", "A"], " ", "D", " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"FCSplit", "[", RowBox[{ RowBox[{"FCI", "[", "inp", "]"}], ",", RowBox[{"{", RowBox[{"LorentzIndex", ",", "Eps"}], "}"}], ",", RowBox[{"Expanding", "\[Rule]", "False"}]}], "]"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"0.005052`", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], ")"}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], ")"}]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], ")"}]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}]}], ")"}]}]}], "}"}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PartitHead", "[", RowBox[{ RowBox[{"FCI", "[", "inp", "]"}], ",", "LorentzIndex"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], ")"}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], ")"}]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], ")"}]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}]}], ")"}]}], ",", "1"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbsoluteTiming", "[", RowBox[{"Times", "@@", RowBox[{"(", RowBox[{"NTerms", "/@", RowBox[{"(", RowBox[{"List", "@@", RowBox[{"FCI", "[", "inp", "]"}]}], ")"}]}], ")"}]}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"0.003574`", ",", "900"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Expand2", "[", RowBox[{ RowBox[{"FCI", "[", "inp", "]"}], ",", "LorentzIndex"}], "]"}], "//", "Length"}]], "Input"], Cell[BoxData[ FormBox["854", TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbsoluteTiming", "[", RowBox[{ RowBox[{"Expand2", "[", RowBox[{ RowBox[{"FCI", "[", "inp", "]"}], ",", "LorentzIndex"}], "]"}], ";"}], "]"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"0.078733`", ",", "Null"}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"inp", "//", "FCI"}], "//", "Contract3"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{"0.161534`", ",", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "8"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]]}], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "8"]}], RowBox[{ SuperscriptBox[ FormBox["q", TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "+", RowBox[{"5", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"]}], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], RowBox[{ SuperscriptBox[ FormBox["q", TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], RowBox[{ SuperscriptBox[ FormBox["q", TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], RowBox[{ SuperscriptBox[ FormBox["q", TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", RowBox[{"D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"6", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{"3", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{"3", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{"D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"12", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"3", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"3", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", RowBox[{"5", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"]}], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "4"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"8", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", RowBox[{"16", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", FractionBox[ RowBox[{"6", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{"6", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", RowBox[{"3", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"10", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"12", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"10", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"10", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", FractionBox[ RowBox[{"16", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", RowBox[{"2", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"6", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"3", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"5", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"3", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"5", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"6", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"12", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"]}], "+", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"5", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"5", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "8"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "8"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", RowBox[{"8", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"]}], "+", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"]}], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"6", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{"2", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "6"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], "-", RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], "-", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], "+", RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], "-", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], "+", RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], "+", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], "-", RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"]}], "-", FractionBox[ RowBox[{"13", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", RowBox[{"D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"2", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{"3", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"2", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{"3", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], "+", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"6", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], "-", RowBox[{"6", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], "+", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{"6", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "4"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{"12", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "3"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", RowBox[{"12", " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], "-", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", FractionBox[ RowBox[{"4", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "+", FractionBox[ RowBox[{"12", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox[ RowBox[{ FormBox["\<\"(\"\>", TraditionalForm], FormBox[ RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], TraditionalForm], FormBox["\<\")\"\>", TraditionalForm]}], "2"], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], "-", RowBox[{"4", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"8", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"6", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"10", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"6", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"10", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], "-", RowBox[{"8", " ", "D", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], "+", RowBox[{"12", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}]}], "}"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"inp", "//", "FCI"}], "//", "Contract"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ FormBox[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{"4.433085`", ",", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "3"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "8"]}], "+", RowBox[{ FractionBox["1", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "3"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "8"]}], "+", RowBox[{ FractionBox["5", "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "2"], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "6"]}], "+", TemplateBox[{"449"}, "OutputSizeLimit`Skeleton", DisplayFunction->(FrameBox[ RowBox[{ "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], Background -> GrayLevel[0.75], BaseStyle -> { "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, ShowStringCharacters -> False}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> {{1, 1}, {1, 2}}, FrameStyle -> None, RoundingRadius -> 7]& )], "+", RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "3"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}], "+", RowBox[{ SubscriptBox["C", "A"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "3"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], TraditionalForm], ")"}], "2"]], ")"}], "3"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}], " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}]}], ")"}], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]]}]}]}], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], TraditionalForm], ImageSizeCache->{70., {2., 9.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarCategory", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], TraditionalForm]], DynamicUpdating -> True, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True], "Tooltip"]& ], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], TraditionalForm], ImageSizeCache->{65., {0., 9.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], TraditionalForm], ImageSizeCache->{65., {0., 9.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 4, 27074453576256896859, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], TraditionalForm], ImageSizeCache->{71., {0., 9.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], TraditionalForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 4, 27074453576256896859, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], TraditionalForm], ImageSizeCache->{55., {0., 9.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], TraditionalForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 4, 27074453576256896859, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], TraditionalForm], ImageSizeCache->{98., {0., 9.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], TraditionalForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Background->RGBColor[0.9657, 0.9753, 0.9802], FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], Out[4]], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"inp2", "=", RowBox[{"inp", "//", "FCI"}]}]], "Input"], Cell[BoxData[ FormBox["\<\"FCI!\"\>", TraditionalForm]], "Print"], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["gc", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ FormBox["q", TraditionalForm], "2"]], ")"}], "2"], " ", SubscriptBox["C", "A"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], ")"}], "2"], " ", SuperscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["b", TraditionalForm], TraditionalForm], FormBox[ FormBox["c", TraditionalForm], TraditionalForm]}]], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ FormBox["q", TraditionalForm], "2"]]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm]}], SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["q", TraditionalForm], "-", FormBox["p", TraditionalForm]}], ")"}], "2"]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], ")"}]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]2", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]2", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "-", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "-", RowBox[{"2", " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}], "+", RowBox[{ FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}], ")"}]}], "-", RowBox[{ FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], FormBox["\<\"\[CenterDot]\"\>", TraditionalForm], FormBox[ FormBox["q", TraditionalForm], TraditionalForm]}], ")"}]}]}], "+", SuperscriptBox[ FormBox[ FormBox["p", TraditionalForm], TraditionalForm], "2"], "+", RowBox[{"2", " ", SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}], "+", RowBox[{ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], "2"], " ", FormBox[ SuperscriptBox[ FormBox[ FormBox["q", TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]3", TraditionalForm], TraditionalForm], TraditionalForm]], TraditionalForm], " ", FormBox[ SuperscriptBox["g", RowBox[{ FormBox[ FormBox[ FormBox["\[Mu]3", TraditionalForm], TraditionalForm], TraditionalForm], FormBox[ FormBox[ FormBox["\[Nu]", TraditionalForm], TraditionalForm], TraditionalForm]}]], TraditionalForm]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"inp2", "//", RowBox[{ RowBox[{"Contract", "[", RowBox[{"#", ",", RowBox[{"FCVerbose", "\[Rule]", "1"}]}], "]"}], "&"}]}], "//", "AbsoluteTiming"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"inp", "//", "Contract"}], "//", "AbsoluteTiming"}]], "Input"], Cell[BoxData[ FormBox["$Aborted", TraditionalForm]], "Output"] }, Open ]], Cell[BoxData[""], "Input"] }, WindowSize->{1351, 683}, WindowMargins->{{453, Automatic}, {Automatic, 94}}, FrontEndVersion->"11.0 for Linux x86 (64-bit) (July 28, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 52, 1, 32, "Input"], Cell[CellGroupData[{ Cell[635, 25, 53, 1, 32, "Input"], Cell[CellGroupData[{ Cell[713, 30, 2326, 63, 28, "Print"], Cell[3042, 95, 1067, 29, 26, "Print"], Cell[4112, 126, 223, 4, 26, "Print"], Cell[4338, 132, 208, 4, 26, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4595, 142, 805, 24, 52, "Input"], Cell[5403, 168, 1566, 61, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7006, 234, 2070, 59, 132, "Input"], Cell[9079, 295, 59, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9175, 301, 671, 19, 72, "Input"], Cell[9849, 322, 7060, 285, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16946, 612, 4588, 147, 112, "Input"], Cell[21537, 761, 15427, 486, 183, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37001, 1252, 2751, 88, 72, "Input"], Cell[39755, 1342, 9272, 292, 124, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49064, 1639, 86, 2, 32, "Input"], Cell[49153, 1643, 56, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49246, 1649, 8095, 238, 253, "Input"], Cell[57344, 1889, 31624, 1222, 172, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89005, 3116, 221, 7, 32, "Input"], Cell[89229, 3125, 250789, 9518, 3481, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[340055, 12648, 275, 8, 32, "Input"], Cell[340333, 12658, 30428, 1048, 154, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[370798, 13711, 130, 3, 32, "Input"], Cell[370931, 13716, 28289, 1046, 154, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[399257, 14767, 244, 7, 32, "Input"], Cell[399504, 14776, 113, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[399654, 14784, 161, 5, 32, "Input"], Cell[399818, 14791, 58, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[399913, 14797, 194, 6, 32, "Input"], Cell[400110, 14805, 114, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[400261, 14813, 127, 4, 32, "Input"], Cell[400391, 14819, 154998, 5697, 1005, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[555426, 20521, 126, 4, 32, "Input"], Cell[555555, 20527, 22540, 626, 216, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[578132, 21158, 80, 2, 32, "Input"], Cell[578215, 21162, 66, 1, 23, "Print"], Cell[578284, 21165, 26155, 1043, 143, "Output"] }, Open ]], Cell[604454, 22211, 216, 7, 32, "Input"], Cell[CellGroupData[{ Cell[604695, 22222, 96, 2, 32, "Input"], Cell[604794, 22226, 63, 1, 31, "Output"] }, Open ]], Cell[604872, 22230, 26, 0, 30, "Input"] } ] *)