Page MenuHomeHEPForge
Files F6780812

No OneTemporary
Actions

View Options

This file is larger than 256 KB, so syntax highlighting was skipped.
Index: branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Boxes.nb
===================================================================
--- branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Boxes.nb (revision 0)
+++ branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Boxes.nb (revision 1082)
@@ -0,0 +1,87497 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 8.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 157, 7]
+NotebookDataLength[ 2870125, 87488]
+NotebookOptionsPosition[ 2853693, 86940]
+NotebookOutlinePosition[ 2854151, 86958]
+CellTagsIndexPosition[ 2854108, 86955]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+
+Cell[CellGroupData[{
+Cell["Boxes for Direct Detection", "Title",
+ CellChangeTimes->{{3.611995530016789*^9, 3.611995542946417*^9}, {
+ 3.611996022350602*^9, 3.611996033608444*^9}, {3.6249485963969707`*^9,
+ 3.62494859743382*^9}}],
+
+Cell[TextData[StyleBox["\t\t\tby Patrick Steppeler",
+ FontFamily->"Utopia",
+ FontSlant->"Italic"]], "Text",
+ CellChangeTimes->{{3.611996549419997*^9, 3.611996554187799*^9}, {
+ 3.611996607441195*^9, 3.611996609035804*^9}},
+ FontSize->16],
+
+Cell[CellGroupData[{
+
+Cell["Initialisation and Setup", "Section",
+ CellChangeTimes->{{3.624948616391615*^9, 3.6249486261789923`*^9}, {
+ 3.625305851547947*^9, 3.62530585362422*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["General Stuff", "Subsection",
+ CellChangeTimes->{{3.625471113155087*^9, 3.625471116207302*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Import", "[", "\"\<http://www.feyncalc.org/install.m\>\"",
+ "]"}]], "Input",
+ CellChangeTimes->{{3.624949838220881*^9, 3.624949838223098*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ RowBox[{"\<\"downloading \"\>",
+ "\[InvisibleSpace]", "\<\"http://www.feyncalc.org/download/fclatest.zip\"\
+\>", "\[InvisibleSpace]", "\<\" please wait \"\>"}],
+ SequenceForm[
+ "downloading ", "http://www.feyncalc.org/download/fclatest.zip",
+ " please wait "],
+ Editable->False], TraditionalForm]], "Print",
+ CellChangeTimes->{3.624949840670183*^9, 3.625290789693324*^9,
+ 3.6253790330542517`*^9, 3.625550992383037*^9, 3.625913330584725*^9,
+ 3.652673044226904*^9, 3.6530422401392117`*^9, 3.665826785281186*^9}],
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ RowBox[{"\<\"Downloading done, installing FeynCalc to \"\>",
+ "\[InvisibleSpace]",
+ StyleBox["\<\"/home/NWZ/p_step04/.Mathematica/Applications\"\>",
+ StripOnInput->False,
+ FontWeight->"Bold"]}],
+ SequenceForm["Downloading done, installing FeynCalc to ",
+ Style[
+ "/home/NWZ/p_step04/.Mathematica/Applications", FontWeight -> "Bold"]],
+ Editable->False], TraditionalForm]], "Print",
+ CellChangeTimes->{3.624949840670183*^9, 3.625290789693324*^9,
+ 3.6253790330542517`*^9, 3.625550992383037*^9, 3.625913330584725*^9,
+ 3.652673044226904*^9, 3.6530422401392117`*^9, 3.6658267932181873`*^9}],
+
+Cell[BoxData[
+ FormBox["\<\"installation of FeynCalc ready.\"\>", TraditionalForm]], "Print",\
+
+ CellChangeTimes->{3.624949840670183*^9, 3.625290789693324*^9,
+ 3.6253790330542517`*^9, 3.625550992383037*^9, 3.625913330584725*^9,
+ 3.652673044226904*^9, 3.6530422401392117`*^9, 3.665826820306429*^9}],
+
+Cell[BoxData[
+ FormBox["\<\"loading FeynCalc \"\>", TraditionalForm]], "Print",
+ CellChangeTimes->{3.624949840670183*^9, 3.625290789693324*^9,
+ 3.6253790330542517`*^9, 3.625550992383037*^9, 3.625913330584725*^9,
+ 3.652673044226904*^9, 3.6530422401392117`*^9, 3.665826820368293*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell["\<\
+Loading FeynCalc from \
+/home/p0klasen/p_step04/.Mathematica/Applications/HighEnergyPhysics\
+\>", "Text",
+ CellMargins->{{Inherited, Inherited}, {1, 0}},
+ GeneratedCell->True,
+ CellAutoOverwrite->True,
+ CellChangeTimes->{3.665826820369556*^9}],
+
+Cell[TextData[{
+ StyleBox["FeynCalc",
+ FontWeight->"Bold"],
+ " ",
+ "8.2.0",
+ " For help, type ?FeynCalc, open ",
+ ButtonBox["FeynCalcRef8.nb",
+ BaseStyle->"AddOnsLink",
+ ButtonFunction:>NotebookOpen[
+ "/home/p0klasen/p_step04/.Mathematica/Applications/HighEnergyPhysics/\
+Documentation/English/FeynCalcRef8.nb"],
+ ButtonData:>{"Short Overview", "intro"},
+ ButtonNote->"Open FeynCalcRef8.nb"],
+ " or visit ",
+ ButtonBox["www.feyncalc.org",
+ BaseStyle->"Hyperlink",
+ ButtonData:>{
+ URL["http://www.feyncalc.org/"], None},
+ ButtonNote->"http://www.feyncalc.org/"]
+}], "Text",
+ CellMargins->{{Inherited, Inherited}, {1, 0}},
+ GeneratedCell->True,
+ CellAutoOverwrite->True,
+ CellChangeTimes->{3.665826821563034*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"PL", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{"1", " ", "-", " ",
+ RowBox[{"DiracMatrix", "[", "5", "]"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.6249506619632607`*^9, 3.6249506712046347`*^9}, {
+ 3.624958458274645*^9, 3.624958493491125*^9}, 3.624958627281206*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.62495067220084*^9, 3.624958494313743*^9,
+ 3.624958633548765*^9, 3.624961071228743*^9, 3.6252909163789463`*^9,
+ 3.625379084416277*^9, 3.625551036107328*^9, 3.6259134746937943`*^9,
+ 3.652673110511154*^9, 3.653042299304064*^9, 3.6658268227603207`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"PR", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{"1", " ", "+", " ",
+ RowBox[{"DiracMatrix", "[", "5", "]"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.624950673957417*^9, 3.6249506799336367`*^9}, {
+ 3.624958502314245*^9, 3.6249585043844213`*^9}, 3.624958629766765*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6249506806831284`*^9, 3.624958504916184*^9,
+ 3.624958631034934*^9, 3.624961071943959*^9, 3.6252909188080606`*^9,
+ 3.625379084573327*^9, 3.6255510362787313`*^9, 3.6259134747435703`*^9,
+ 3.652673113224387*^9, 3.653042300197735*^9, 3.665826822863225*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Eins", " ", "=",
+ RowBox[{
+ RowBox[{"g1R", "*", "PR"}], " ", "+", " ",
+ RowBox[{"g1L", "*", "PL"}]}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624953133538807*^9, 3.624958510721531*^9, 3.624958635751093*^9, {
+ 3.624961052632565*^9, 3.6249610725981693`*^9}, 3.625290919953179*^9,
+ 3.6253790846979227`*^9, 3.625551036474144*^9, 3.625913474787182*^9,
+ 3.652673114116001*^9, 3.653042300848411*^9, 3.665826822990046*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Zwei", " ", "=", " ",
+ RowBox[{
+ RowBox[{"g2R", "*", "PR"}], " ", "+", " ",
+ RowBox[{"g2L", "*", "PL"}]}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6249531343160667`*^9, 3.624958512108183*^9, 3.624958637100752*^9, {
+ 3.624961053509624*^9, 3.624961073293374*^9}, 3.62529092065646*^9,
+ 3.62537908485401*^9, 3.625551036609321*^9, 3.625913474915381*^9,
+ 3.6526731148892803`*^9, 3.6530423017916327`*^9, 3.665826823103291*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drei", " ", "=",
+ RowBox[{
+ RowBox[{"g3R", "*", "PR"}], " ", "+", " ",
+ RowBox[{"g3L", "*", "PL"}]}]}]], "Input",
+ CellChangeTimes->{{3.625571571985531*^9, 3.625571580666276*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255715828703136`*^9, 3.6259134749621687`*^9,
+ 3.652673115722702*^9, 3.653042302622837*^9, 3.665826823200799*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Vier", " ", "=",
+ RowBox[{
+ RowBox[{"g4R", "*", "PR"}], " ", "+", " ",
+ RowBox[{"g4L", "*", "PL"}]}]}]], "Input",
+ CellChangeTimes->{{3.6255715892577667`*^9, 3.625571593007834*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625571593967927*^9, 3.625913475101111*^9,
+ 3.652673116566136*^9, 3.653042303311935*^9, 3.66582682332618*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"massrules", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mb", "\[Rule]", "mq"}], ",",
+ RowBox[{"m2", "\[Rule]", "mq"}], ",",
+ RowBox[{"ma", "\[Rule]", "mNeu"}], ",",
+ RowBox[{"m1", "\[Rule]", "mNeu"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"mq", "^", "2"}]}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "pb", "]"}], ",",
+ RowBox[{"Momentum", "[", "pb", "]"}]}], "]"}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"mq", "^", "2"}]}], " ", ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "pb", "]"}]}], "]"}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"pbp2", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.625313362118918*^9, 3.625313397108218*^9}, {
+ 3.6253134875531282`*^9, 3.625313510551927*^9}, {3.62531362966792*^9,
+ 3.625313655780013*^9}, {3.625313870784391*^9, 3.6253139226589746`*^9}, {
+ 3.6253139572108307`*^9, 3.6253139722145767`*^9}, {3.625314059473489*^9,
+ 3.625314065577962*^9}, {3.6254659365534678`*^9, 3.625465971334318*^9}, {
+ 3.625552620178563*^9, 3.6255526297691927`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mb", "\[Rule]", "mq"}], ",",
+ RowBox[{"m2", "\[Rule]", "mq"}], ",",
+ RowBox[{"ma", "\[Rule]", "mNeu"}], ",",
+ RowBox[{"m1", "\[Rule]", "mNeu"}], ",",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], "\[Rule]",
+ SuperscriptBox["mq", "2"]}], ",",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"], "\[Rule]",
+ SuperscriptBox["mq", "2"]}], ",",
+ RowBox[{
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], "\[Rule]",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6249613635808*^9, 3.624964066851183*^9,
+ 3.6252909220390778`*^9, 3.625313398792368*^9, 3.625313514400381*^9,
+ 3.625313657516219*^9, 3.625313899659498*^9, 3.625313973742626*^9,
+ 3.6253140679031887`*^9, 3.6253790853982067`*^9, 3.62546597416008*^9,
+ 3.625551037259948*^9, 3.625552634127153*^9, 3.625913479518639*^9,
+ 3.6526731174855337`*^9, 3.653042306191627*^9, 3.6658268319420853`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"murule", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"$MU", "[", "1", "]"}], "\[Rule]", "\[Mu]"}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.624961320691147*^9, 3.624961351157239*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"$MU", "\[InvisibleApplication]",
+ RowBox[{"(", "1", ")"}]}], "\[Rule]", "\[Mu]"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6253909241957617`*^9, 3.625551037444045*^9,
+ 3.625913480623671*^9, 3.652673118267366*^9, 3.6530423071700287`*^9,
+ 3.6658268352908*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Fierz Stuff", "Subsection",
+ CellChangeTimes->{{3.6254711243772*^9, 3.6254711255898037`*^9}, {
+ 3.653044930040312*^9, 3.653044934944113*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SortoutLorentzStructures", "=", " ",
+ RowBox[{"{", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "0"}], "-", "1"}], " ", "*)"}],
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "1"}], "-", "1"}], " ", "*)"}],
+ " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "0"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "1"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "0"}], "-", "3"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "1"}], "-", "3"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]", " ", "1"}], "-", "2"}], " ", "*)"}],
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]", " ", "2"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]", " ", "1"}], "-", "3"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]", " ", "2"}], "-", "3"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ " \
+ \
+ \
+ \
+ \
+ ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]", " ", "3"}], "-", "3"}], " ", "*)"}], " ",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ " \
+ \
+ \
+ \
+ ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]"}], " ", "&"}], " ",
+ RowBox[{"\[Rho]", "/", "\[Sigma]"}], " ", "2"}], "-", "2"}], ",",
+ " ",
+ RowBox[{"Tensor", "?"}], ",", " ",
+ RowBox[{"Behandlung", " ", "unklar"}]}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"TTypeWrongOrder", " ", "+", " ",
+ RowBox[{"4", "STypeWrongOrder"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", " ",
+ RowBox[{"TTypeWrongOrder", " ", "+", " ",
+ RowBox[{"4", "STypeWrongOrder"}]}]}], ",", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]"}], " ", "&"}], " ",
+ RowBox[{"\[Rho]", "/", "\[Sigma]"}], " ", "2"}], "-", "3"}], " ",
+ "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ " \
+ \
+ \
+ \
+ ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]"}], " ", "&"}], " ",
+ RowBox[{"\[Rho]", "/", "\[Sigma]"}], " ", "3"}], "-", "3"}], ",",
+ " ",
+ RowBox[{"Pseudotensor", "?"}], ",", " ",
+ RowBox[{"Behandlung", " ", "unklar"}]}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"TTypeWrongOrder", " ", "+", " ",
+ RowBox[{"4", "PTypeWrongOrder"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"TTypeWrongOrder", " ", "+", " ",
+ RowBox[{"4", "PTypeWrongOrder"}]}]}], ",", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "STypeWrongOrder"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{"Relevante", " ", "Koeffizienten"}], " ", "*)"}],
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "PTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "VTypeWrongOrder"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "ATypeWrongOrder"}]}], "}"}]}],
+ "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.6249616422427588`*^9, 3.624961660834037*^9}, {
+ 3.624961703538155*^9, 3.6249618990470057`*^9}, {3.6249620311703587`*^9,
+ 3.624962031698278*^9}, {3.624962136525158*^9, 3.624962136902089*^9}, {
+ 3.624963024206049*^9, 3.624963040241394*^9}, {3.624963126399502*^9,
+ 3.624963126649659*^9}, {3.624963317010666*^9, 3.6249633761675158`*^9}, {
+ 3.624964170882091*^9, 3.6249641773222427`*^9}, {3.624964422037314*^9,
+ 3.624964480418743*^9}, {3.6249645622185593`*^9, 3.624964633859416*^9}, {
+ 3.624964768077133*^9, 3.62496483590483*^9}, {3.624964886400963*^9,
+ 3.624964928356945*^9}, {3.6249651379413767`*^9, 3.6249651826352987`*^9}, {
+ 3.624965246906554*^9, 3.6249652675467587`*^9}, {3.624965396620214*^9,
+ 3.6249654067753983`*^9}, {3.6249654546029663`*^9, 3.62496547027435*^9}, {
+ 3.624965736448337*^9, 3.6249657394787693`*^9}, 3.6253069661174498`*^9, {
+ 3.6253070229663763`*^9, 3.625307095265367*^9}, 3.6253071298019733`*^9, {
+ 3.625307232376132*^9, 3.625307235471497*^9}, {3.625307492742587*^9,
+ 3.625307541636441*^9}, {3.625307642231162*^9, 3.62530773980449*^9}, {
+ 3.6253078396792727`*^9, 3.6253078868075438`*^9}, {3.625307986275688*^9,
+ 3.625308037465704*^9}, {3.625308488107974*^9, 3.62530850551009*^9}, {
+ 3.6253086419757843`*^9, 3.6253086617799463`*^9}, {3.62530883824146*^9,
+ 3.625308901099552*^9}, {3.625309029181181*^9, 3.625309169146133*^9}, {
+ 3.625309394285903*^9, 3.625309410034665*^9}, {3.6253095150475082`*^9,
+ 3.625309545226869*^9}, {3.62530964561308*^9, 3.625309652671506*^9}, {
+ 3.625309770494775*^9, 3.625309783517674*^9}, {3.625309923912201*^9,
+ 3.6253099325400267`*^9}, {3.625310274352014*^9, 3.625310341316474*^9}, {
+ 3.625310819800012*^9, 3.6253108272963142`*^9}, {3.6253109178097477`*^9,
+ 3.6253109527723*^9}, {3.6253111334758167`*^9, 3.6253111583919067`*^9}, {
+ 3.625311298692445*^9, 3.6253113502817793`*^9}, {3.62531142367202*^9,
+ 3.625311424469328*^9}, {3.6253114965228777`*^9, 3.625311514955756*^9}, {
+ 3.6253115935759373`*^9, 3.6253116516688957`*^9}, {3.625311742312037*^9,
+ 3.6253117544317513`*^9}, 3.625311824941854*^9, {3.625311935839171*^9,
+ 3.625311944904298*^9}, {3.625312004316777*^9, 3.62531207113461*^9}, {
+ 3.625312132805612*^9, 3.625312193509323*^9}, {3.625312240524081*^9,
+ 3.625312310366046*^9}, {3.6253123605207*^9, 3.625312361216489*^9}, {
+ 3.625312444867196*^9, 3.625312797546081*^9}, {3.625312843165194*^9,
+ 3.6253128488506327`*^9}, {3.6253129839799843`*^9, 3.625313043910171*^9},
+ 3.625313188391687*^9, {3.625381415329549*^9, 3.625381479535877*^9}, {
+ 3.625381536497384*^9, 3.625381585486538*^9}, {3.6253816287732677`*^9,
+ 3.625381683771635*^9}, {3.6253817261999207`*^9, 3.6253817275196743`*^9}, {
+ 3.625381768157947*^9, 3.6253820011169157`*^9}, {3.625382076953002*^9,
+ 3.625382161675703*^9}, {3.6253822328014812`*^9, 3.625382294551732*^9}, {
+ 3.625382352497176*^9, 3.6253824544317713`*^9}, {3.625382637004794*^9,
+ 3.625382763128593*^9}, {3.6253830219399137`*^9, 3.6253831073679113`*^9}, {
+ 3.625383184237794*^9, 3.625383191041583*^9}, {3.6253832305291643`*^9,
+ 3.625383277234973*^9}, {3.625383857805922*^9, 3.625384004077464*^9}, {
+ 3.625384121801248*^9, 3.6253842316012373`*^9}, {3.625384264806678*^9,
+ 3.625384281997066*^9}, {3.62539047798676*^9, 3.6253908056849613`*^9}, {
+ 3.6253908584829884`*^9, 3.62539090756668*^9}, 3.6255496234890213`*^9, {
+ 3.625549664722636*^9, 3.625549665452716*^9}, {3.625550220897066*^9,
+ 3.625550235760931*^9}, {3.6255503648265133`*^9, 3.625550372146686*^9}, {
+ 3.625554442026754*^9, 3.6255544461001472`*^9}, {3.625554486034775*^9,
+ 3.6255545190253468`*^9}, {3.6255545842991858`*^9, 3.625554670888307*^9}, {
+ 3.625554716534747*^9, 3.625554858267887*^9}, {3.625554918209834*^9,
+ 3.625554956492127*^9}, {3.6255554851248713`*^9, 3.6255554895265293`*^9}, {
+ 3.625555522077094*^9, 3.625555564221725*^9}, {3.62555582659577*^9,
+ 3.625555858050762*^9}, {3.625982868498826*^9, 3.625982870424973*^9}, {
+ 3.6526735207602654`*^9, 3.652673521437825*^9}, {3.6530428184270363`*^9,
+ 3.653042822841118*^9}, {3.65304289678363*^9, 3.653042912487072*^9}, {
+ 3.653042943752737*^9, 3.653042957069832*^9}, {3.653043528897626*^9,
+ 3.653043589966269*^9}, {3.653044688799802*^9, 3.6530446961071377`*^9}, {
+ 3.653044913712023*^9, 3.653044922223921*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ "STypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ "PTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ "VTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ "ATypeWrongOrder"}]}], "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6526731203933277`*^9, 3.653042309643551*^9,
+ 3.653042967916293*^9, 3.653043598012965*^9, 3.6530447026946917`*^9,
+ 3.65304493688171*^9, 3.665827742803383*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SortoutLorentzStructures2", "=", " ",
+ RowBox[{"SortoutLorentzStructures", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-", "p1"}], ",", "mNeu"}], "]"}], "\[Rule]",
+ RowBox[{"Spinor", "[",
+ RowBox[{"pa", ",", "mNeu"}], "]"}]}], ",", " ",
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-", "pa"}], ",", "mNeu"}], "]"}], "\[Rule]",
+ RowBox[{"Spinor", "[",
+ RowBox[{"p1", ",", "mNeu"}], "]"}]}], ",", " ",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ",", "D"}], "]"}], "\[Rule]",
+
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ",", "D"}], "]"}]}], ",", " ",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ",", "D"}], "]"}], "\[Rule]",
+
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ",", "D"}], "]"}]}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{
+ 3.62554980257232*^9, {3.625549919164434*^9, 3.625550025901228*^9}, {
+ 3.6255502545076857`*^9, 3.625550280608358*^9}, {3.6255504693179092`*^9,
+ 3.625550526153325*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "STypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "PTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "VTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "ATypeWrongOrder"}]}], "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625550026788604*^9, 3.6255502851718884`*^9,
+ 3.6255504950835457`*^9, 3.625550527598023*^9, 3.625554531525281*^9,
+ 3.6255546775749063`*^9, 3.625554862669104*^9, 3.625554961652172*^9,
+ 3.6255555705166903`*^9, 3.6255558652862186`*^9, 3.625913495991544*^9,
+ 3.6526731217158127`*^9, 3.6530423117874813`*^9, 3.653042971931923*^9,
+ 3.65304470751115*^9, 3.653044938753175*^9, 3.665827745861465*^9}]
+}, Open ]],
+
+Cell["\<\
+NOTE: The signs are as in table D.4 of the thesis as we apply the Fierz \
+transformations for spinor fields.\
+\>", "Text",
+ CellChangeTimes->{{3.625294659583589*^9, 3.6252946977382317`*^9}, {
+ 3.625296301291059*^9, 3.625296303380726*^9}, {3.625305870010255*^9,
+ 3.625305936335676*^9}, {3.665827332151436*^9, 3.66582734590327*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FierzTrafo", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"STypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "4"}], "SType"}], " ", "+",
+ RowBox[{
+ RowBox[{"1", "/", "4"}], "AType"}]}]}], ",", " ",
+ RowBox[{"VTypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"-", "SType"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}], "AType"}]}]}], ",", " ",
+ RowBox[{"ATypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{"SType", " ", "+", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}], "AType"}]}]}], ",", " ",
+ RowBox[{"PTypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "4"}], "SType"}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"1", "/", "4"}], "AType"}]}]}], ",", " ",
+ RowBox[{"TTypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"-", "3"}], "SType"}]}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.624965503202278*^9, 3.6249655089417667`*^9}, {
+ 3.624965609532741*^9, 3.624965657527409*^9}, {3.6249657288679333`*^9,
+ 3.624965731416089*^9}, {3.6249657744431267`*^9, 3.624965875194125*^9},
+ 3.624965993182826*^9, {3.625294536369258*^9, 3.625294554947412*^9}, {
+ 3.625295432769919*^9, 3.625295433143134*^9}, {3.6253837955684547`*^9,
+ 3.625383821520781*^9}, {3.653109118467868*^9, 3.653109183617628*^9}, {
+ 3.6531093488741293`*^9, 3.653109349408635*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"STypeWrongOrder", "\[Rule]",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}]}], ",",
+ RowBox[{"VTypeWrongOrder", "\[Rule]",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}]}], ",",
+ RowBox[{"ATypeWrongOrder", "\[Rule]",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}]}], ",",
+ RowBox[{"PTypeWrongOrder", "\[Rule]",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}]}], ",",
+ RowBox[{"TTypeWrongOrder", "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "3"}], " ", "SType"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.65310918598155*^9, 3.6531093506282377`*^9,
+ 3.665827749225803*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SortoutLorentzStructures3", " ", "=", " ",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "SType"}], ",",
+ " \
+ ",
+ RowBox[{"(*", " ",
+ RowBox[{"Relevante", " ", "Koeffizienten"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "AType"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "0"}], "-", "1"}], " ", "*)"}],
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "1"}], "-", "1"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "0"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "1"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "2"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]", " ", "1"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "}"}]}]], "Input",
+ CellChangeTimes->{{3.625981995553884*^9, 3.625982156886362*^9}, {
+ 3.62598219343217*^9, 3.625982344147911*^9}, {3.62598248062385*^9,
+ 3.625982526040359*^9}, {3.625982561204406*^9, 3.625982717696033*^9}, {
+ 3.62598279255162*^9, 3.6259827937836733`*^9}, {3.62598288663844*^9,
+ 3.6259828939011908`*^9}, {3.625982930813319*^9, 3.625983045884252*^9}, {
+ 3.625983119989719*^9, 3.625983190108265*^9}, {3.6259832246047564`*^9,
+ 3.625983253433977*^9}, {3.6259835539485493`*^9, 3.625983556428586*^9}, {
+ 3.625984063406651*^9, 3.625984163591755*^9}, {3.6259842287881823`*^9,
+ 3.625984317373794*^9}, {3.625984384259759*^9, 3.625984411673966*^9}, {
+ 3.625984783829444*^9, 3.625984852679812*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "SType"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "AType"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.625982327127965*^9, 3.625982354110599*^9},
+ 3.6259826874445677`*^9, 3.625982724235561*^9, 3.625982808919643*^9,
+ 3.6259830467020197`*^9, 3.6259831954343967`*^9, 3.6259832554650927`*^9,
+ 3.625983587588231*^9, 3.6259841879175997`*^9, 3.625984318345862*^9,
+ 3.625984416397532*^9, 3.625984854089896*^9, 3.652673143084482*^9,
+ 3.653042316675179*^9, 3.665827750979491*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SortoutLorentzStructures4", " ", "=", " ",
+ RowBox[{"SortoutLorentzStructures3", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{"p1", ",", "mNeu"}], "]"}], "\[Rule]",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-", "pa"}], ",", "mNeu"}], "]"}]}], ",", " ",
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{"pa", ",", "mNeu"}], "]"}], "\[Rule]",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-", "p1"}], ",", "mNeu"}], "]"}]}]}], "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.625988826650899*^9, 3.625988950666542*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "SType"}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "AType"}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988953345138*^9, 3.652673144464995*^9,
+ 3.65304231838586*^9, 3.665827752275769*^9}]
+}, Open ]]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Exercises and tests with FeynCalc", "Section",
+ CellChangeTimes->{{3.624948633621427*^9, 3.6249486407931213`*^9}, {
+ 3.625296234738603*^9, 3.625296236133233*^9}, {3.62547014577992*^9,
+ 3.625470152875256*^9}, {3.625988849791114*^9, 3.625988850603269*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{"DiracMatrix", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Mu]", ",",
+ RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.624950715435017*^9, 3.624950770864333*^9}, {
+ 3.624950844853429*^9, 3.624950908470416*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"D", " ",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.624950731944147*^9, 3.62495077600447*^9}, {
+ 3.624950868798614*^9, 3.6249509096146383`*^9}, 3.624953109473412*^9,
+ 3.624953144719792*^9, 3.624953957882493*^9, 3.6252909316460333`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracMatrix", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Mu]"}], "]"}], ",", "D"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.624953963991448*^9, 3.624953984938545*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"D", " ",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.624953968925789*^9, 3.6249539857222424`*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{"Tr", "[",
+ RowBox[{"DiracSlash", "[",
+ RowBox[{"pa", ",", "pb"}], "]"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.624950918597591*^9, 3.624950955183838*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"4", " ",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.624950950506639*^9, 3.624950956087246*^9}, {
+ 3.624953034238727*^9, 3.624953044823757*^9}, 3.624953110616661*^9,
+ 3.624953145511384*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain0", " ", "=", " ",
+ RowBox[{"ubar", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".", "v"}]}]], "Input",
+ CellChangeTimes->{{3.624954021554099*^9, 3.624954041775536*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.6249540359445677`*^9, 3.624954042161015*^9},
+ 3.624956913023353*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"couple", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracMatrix", "[", "\[Alpha]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Alpha]", "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.6249593330507727`*^9, 3.624959355200626*^9}, {
+ 3.624959398912442*^9, 3.624959409613364*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Alpha]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Alpha]",
+ TraditionalForm],
+ TraditionalForm]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.624959410621179*^9, 3.62495944130375*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"zerop", " ", "=", " ",
+ RowBox[{"4",
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{"mq", "^", "2"}]}]}]], "Input",
+ CellChangeTimes->{{3.624962733513382*^9, 3.624962764810471*^9}, {
+ 3.624962823120233*^9, 3.62496282355474*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"4", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.624962824627986*^9, 3.6249630563803167`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"zerop", "/.", "SortoutLorentzStructures"}]], "Input",
+ CellChangeTimes->{{3.624962741649876*^9, 3.6249627556114693`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"4", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.6249627565239573`*^9, 3.6249627674874763`*^9},
+ 3.624962826783065*^9, 3.624963057382104*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[", "couple", "]"}]], "Input",
+ CellChangeTimes->{{3.624959367117733*^9, 3.624959394503718*^9}, {
+ 3.624959504009138*^9, 3.62495950592244*^9}}],
+
+Cell[BoxData[
+ FormBox["4", TraditionalForm]], "Output",
+ CellChangeTimes->{{3.624959371266412*^9, 3.624959411582078*^9},
+ 3.624959443297598*^9, 3.6249595067564487`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"moeps", " ", "=", " ",
+ RowBox[{
+ RowBox[{"a", "*", "x"}], " ", "+", " ",
+ RowBox[{"b", "*", "y"}], " ", "+", " ",
+ RowBox[{"x", "*", "y"}], " ", "+", " ",
+ RowBox[{"c", "*",
+ RowBox[{"x", "^", "2"}]}], " ", "-",
+ RowBox[{"3", "x"}]}]}]], "Input",
+ CellChangeTimes->{{3.624966626455099*^9, 3.624966637097459*^9}, {
+ 3.624966927071856*^9, 3.624966927160817*^9}, {3.624966957700128*^9,
+ 3.624966964293695*^9}, {3.625295306465556*^9, 3.625295307778377*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"a", " ", "x"}], "+",
+ RowBox[{"b", " ", "y"}], "+",
+ RowBox[{"c", " ",
+ SuperscriptBox["x", "2"]}], "+",
+ RowBox[{"x", " ", "y"}], "-",
+ RowBox[{"3", " ", "x"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624966638221924*^9, 3.6249669298081093`*^9, 3.624966964798009*^9, {
+ 3.625295291474559*^9, 3.625295308429907*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"moeps", ",", "x"}], "]"}]], "Input",
+ CellChangeTimes->{{3.624966641410199*^9, 3.6249666527037582`*^9}, {
+ 3.62496669168219*^9, 3.6249666952080317`*^9}, {3.624966935752206*^9,
+ 3.624966941726674*^9}, {3.6249680454443808`*^9, 3.6249680483971863`*^9}, {
+ 3.6252952951993723`*^9, 3.6252952983050737`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"x", " ",
+ RowBox[{"(",
+ RowBox[{"a", "+", "y", "-", "3"}], ")"}]}], "+",
+ RowBox[{"b", " ", "y"}], "+",
+ RowBox[{"c", " ",
+ SuperscriptBox["x", "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624966653233776*^9, 3.6249666960980673`*^9, {3.624966931694182*^9,
+ 3.624966966324739*^9}, 3.624968049410676*^9, {3.625295298917067*^9,
+ 3.625295309206169*^9}}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Box B1", "Section",
+ CellChangeTimes->{{3.624948653905464*^9, 3.6249486551059847`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Subsection",
+ CellChangeTimes->{{3.62547018814291*^9, 3.625470188926362*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ubar", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p2", ",", "m2"}], "]"}]}], ";", " ",
+ RowBox[{"v", " ", "=", " ",
+ RowBox[{"SpinorV", "[",
+ RowBox[{"p1", ",", "m1"}], "]"}]}], ";",
+ RowBox[{"vbar", " ", "=", " ",
+ RowBox[{"SpinorVBar", "[",
+ RowBox[{"pa", ",", "ma"}], "]"}]}], ";", " ",
+ RowBox[{"u", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pb", ",", " ", "mb"}], "]"}]}], ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain1", " ", "=", " ",
+ RowBox[{"ubar", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "p2", "]"}], "+", "mq"}], ")"}], ".", "Zwei",
+ ".", "v"}]}]], "Input",
+ CellChangeTimes->{{3.6249600471797247`*^9, 3.6249600475918903`*^9}, {
+ 3.624960110020569*^9, 3.624960110515991*^9}, {3.6249605786546288`*^9,
+ 3.6249605832672*^9}, {3.625468446654454*^9, 3.625468446681176*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624958904079495*^9, 3.624960052935883*^9, 3.624960117082448*^9,
+ 3.62496015264618*^9, 3.624960584122257*^9, 3.6249610253291388`*^9, {
+ 3.6249610569189653`*^9, 3.624961082336829*^9}, 3.624964084105648*^9,
+ 3.625290951715888*^9, 3.625379393236635*^9, 3.625468457224853*^9,
+ 3.6255507339989443`*^9, 3.625551055316133*^9, 3.625552709855989*^9,
+ 3.62555564572501*^9, 3.625562380066894*^9, 3.625570819671199*^9,
+ 3.6259136230934963`*^9, 3.652673220756485*^9, 3.653042345540969*^9,
+ 3.653109212594296*^9, 3.653109359523252*^9, 3.6658268820310802`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain2", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pb", "]"}], "+", "mq"}], ")"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "u"}]}]], "Input",
+ CellChangeTimes->{{3.62495977058398*^9, 3.624959778198268*^9},
+ 3.624959930619413*^9, {3.624960050239801*^9, 3.6249600505884523`*^9}, {
+ 3.6249601139115257`*^9, 3.6249601141598186`*^9}, {3.6249605892434483`*^9,
+ 3.624960590543098*^9}, {3.624960644364827*^9, 3.624960646194121*^9}, {
+ 3.624960754079908*^9, 3.624960755217659*^9}, {3.6254684497050343`*^9,
+ 3.625468449856061*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624958905045106*^9, 3.624959778742733*^9, 3.6249599318502398`*^9,
+ 3.624960054031616*^9, 3.6249601149453897`*^9, 3.624960153732232*^9,
+ 3.6249605914552383`*^9, 3.6249606469029427`*^9, 3.624960755916338*^9,
+ 3.624961025970542*^9, {3.62496105759971*^9, 3.624961083217493*^9},
+ 3.624964087117188*^9, 3.6252909527207937`*^9, 3.625379394018697*^9,
+ 3.625468458587825*^9, 3.625550734696653*^9, 3.6255510560156116`*^9,
+ 3.625552710519665*^9, 3.625555646310611*^9, 3.625562380717391*^9,
+ 3.625570820224427*^9, 3.625913623842698*^9, 3.6526732216468287`*^9,
+ 3.653042346105959*^9, 3.653109213825131*^9, 3.653109360289103*^9,
+ 3.665826919246532*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain3", " ", "=", " ",
+ RowBox[{"ubar", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Zwei", ".",
+ "v"}]}]], "Input",
+ CellChangeTimes->{{3.625296075149048*^9, 3.6252960993083773`*^9}, {
+ 3.653042346604447*^9, 3.653042359181657*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625296104559725*^9, 3.625379394664719*^9, 3.625468459381822*^9,
+ 3.625550735340353*^9, 3.625551056698601*^9, 3.625552711068613*^9,
+ 3.625555646858637*^9, 3.625562381329455*^9, 3.625570820777094*^9,
+ 3.625913624498904*^9, 3.652673222354496*^9, {3.6530423566741877`*^9,
+ 3.6530423620294733`*^9}, 3.653109214448386*^9, 3.653109360920083*^9,
+ 3.665826929068385*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain4", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "u"}]}]], "Input",
+ CellChangeTimes->{{3.625296116979075*^9, 3.6252961347621202`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625296139438325*^9, 3.6253793953841467`*^9,
+ 3.625468460122944*^9, 3.625550735932117*^9, 3.625551057388857*^9,
+ 3.625552711617193*^9, 3.625555647400156*^9, 3.625562381830393*^9,
+ 3.625570821250396*^9, 3.625913625166081*^9, 3.652673223140304*^9,
+ 3.6530423634628153`*^9, 3.653109215048123*^9, 3.653109361498102*^9,
+ 3.665826939782319*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain5", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "u"}]}]], "Input",
+ CellChangeTimes->{{3.625380159117663*^9, 3.625380173717288*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.62538017681651*^9, 3.625468461180613*^9,
+ 3.625550736542261*^9, 3.62555105840766*^9, 3.6255527122085743`*^9,
+ 3.625555647896325*^9, 3.6255623823874063`*^9, 3.625570821762477*^9,
+ 3.625913625777422*^9, 3.652673223859249*^9, 3.653042364217059*^9,
+ 3.653109215634651*^9, 3.653109364277925*^9, 3.665826956987555*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Codeready", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",", " ",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g2L", " ", "\[Rule]",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}]}],
+ "}"}]}]], "Input",
+ CellChangeTimes->{{3.625464932055994*^9, 3.625464956531705*^9}, {
+ 3.625465006402581*^9, 3.6254650472797947`*^9}, {3.625465178985278*^9,
+ 3.6254652307169857`*^9}, {3.625562333521805*^9, 3.6255623517264137`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "(", "1", ")"}]}], ",",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2L", "\[Rule]",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625465234935491*^9, 3.625468462177044*^9, 3.625550737157226*^9,
+ 3.625551059366625*^9, 3.625552712678268*^9, 3.6255556484621553`*^9, {
+ 3.625562354334132*^9, 3.625562382944086*^9}, 3.62557082240836*^9,
+ 3.625913626358959*^9, 3.652673224572509*^9, 3.653042364963767*^9,
+ 3.6531092163623257`*^9, 3.653109365185553*^9, 3.665827025062303*^9}]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"Drho", "=", " ",
+ RowBox[{
+ RowBox[{"xd1", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd2", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd3", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", " ", "\[Rho]"}], "]"}]}]}]}], ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drhosigma", "=", " ",
+ RowBox[{
+ RowBox[{"xd00", " ",
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd33", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], "+", " ",
+ RowBox[{"xd12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"xd13",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"xd23",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}]}]}], ")"}]}]}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+",
+ RowBox[{"xd12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd11", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255709382178917`*^9, 3.625913628307012*^9,
+ 3.652673226032504*^9, 3.653042366378703*^9, 3.65310921819879*^9,
+ 3.653109366801879*^9, 3.665827027574861*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D0 Terms", "Subsection",
+ CellChangeTimes->{{3.625305557638105*^9, 3.625305559240715*^9}, {
+ 3.625305949033546*^9, 3.625305949135116*^9}}],
+
+Cell["\<\
+Factor \[ImaginaryI] is neglected here from the beginning to simplify reading \
+off the Wilson coefficients.\
+\>", "Text",
+ CellChangeTimes->{{3.62546548792087*^9, 3.6254655102591057`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD0", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{"-", " ", "xd0"}], " ",
+ RowBox[{"Alfas", "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"chain1", ".", "chain2"}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "murule"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.624959666573124*^9, 3.624959670123781*^9}, {
+ 3.6249597295032053`*^9, 3.624959756636725*^9}, {3.6249598114325047`*^9,
+ 3.62495982931739*^9}, {3.624960079569923*^9, 3.6249600797460337`*^9}, {
+ 3.6249606998102417`*^9, 3.624960746601453*^9}, {3.624960892628036*^9,
+ 3.6249608965431213`*^9}, {3.624961097771532*^9, 3.624961136021925*^9}, {
+ 3.624961206899859*^9, 3.624961287579777*^9}, {3.624961335412776*^9,
+ 3.624961335628813*^9}, {3.624961369614399*^9, 3.624961402055044*^9}, {
+ 3.624963915427767*^9, 3.624963967162962*^9}, {3.625291031469491*^9,
+ 3.625291032566012*^9}, {3.625295771612755*^9, 3.625295838094141*^9}, {
+ 3.625296175963073*^9, 3.625296177676832*^9}, {3.625305643537538*^9,
+ 3.625305643984682*^9}, 3.625465514891465*^9, {3.625549197366715*^9,
+ 3.625549200597301*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6249589080698843`*^9, 3.624959672545013*^9, {3.624959753049749*^9,
+ 3.6249597702762547`*^9}, 3.6249598323898993`*^9, {3.62495992253249*^9,
+ 3.6249599351052732`*^9}, {3.624960057586384*^9, 3.624960083126081*^9},
+ 3.624960121261129*^9, 3.624960156748864*^9, 3.6249605950686903`*^9,
+ 3.624960651846664*^9, {3.6249607138108873`*^9, 3.624960760567047*^9},
+ 3.6249609000365973`*^9, 3.624961028984342*^9, {3.624961060279284*^9,
+ 3.624961138900353*^9}, {3.624961225960746*^9, 3.6249612552769003`*^9},
+ 3.6249612904695807`*^9, 3.624961338758761*^9, {3.6249613752650633`*^9,
+ 3.624961404772586*^9}, 3.6249629546102552`*^9, {3.624963929134005*^9,
+ 3.624963970336507*^9}, 3.624964090853015*^9, 3.625290954734209*^9,
+ 3.625291035207026*^9, 3.625294707132298*^9, {3.625295822934689*^9,
+ 3.6252958475652*^9}, 3.6252961805406857`*^9, {3.625297108114764*^9,
+ 3.625297136806979*^9}, 3.625305645909533*^9, 3.6253793986405983`*^9,
+ 3.625465527052197*^9, 3.625466007886428*^9, 3.625468473336117*^9,
+ 3.625550740414055*^9, 3.6255510634784822`*^9, 3.625552716428852*^9,
+ 3.625555681978951*^9, 3.6255623961463842`*^9, 3.625570834834362*^9,
+ 3.625913780781299*^9, 3.652673237262208*^9, 3.6530423708271313`*^9,
+ 3.653042999611998*^9, 3.653043614650365*^9, 3.653109228099073*^9,
+ 3.653109370597036*^9, 3.665827232082595*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD0", "/.", "SortoutLorentzStructures"}]], "Input",
+ CellChangeTimes->{{3.624962182854126*^9, 3.624962190947191*^9}, {
+ 3.624963974536367*^9, 3.624963976830482*^9}, {3.625296187294426*^9,
+ 3.625296188016369*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "PTypeWrongOrder", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}]}], "\[Pi]"]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "STypeWrongOrder", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}]}], "\[Pi]"]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624962191873794*^9, 3.624962857530168*^9, {3.624963077320238*^9,
+ 3.624963087234548*^9}, 3.624963146120607*^9, 3.624963398936224*^9,
+ 3.624963977681282*^9, 3.624964095696726*^9, 3.624964184855517*^9,
+ 3.6249644986944313`*^9, 3.624964641766143*^9, 3.624964861046287*^9,
+ 3.624964939812003*^9, 3.6249651977875147`*^9, 3.624965277283038*^9,
+ 3.624965422126549*^9, 3.6249654772077913`*^9, 3.624965676079136*^9,
+ 3.624965752784827*^9, 3.6249659222761507`*^9, 3.624966008772718*^9,
+ 3.624966211277124*^9, 3.624966297296323*^9, 3.624966469938156*^9, {
+ 3.6249670010821867`*^9, 3.624967010623945*^9}, 3.624968086752666*^9,
+ 3.625290955297021*^9, 3.625291040032655*^9, 3.625291283144055*^9,
+ 3.6252947092454367`*^9, 3.62529494074448*^9, 3.625295242876505*^9,
+ 3.625295337884973*^9, 3.625295375705779*^9, 3.625295528660084*^9,
+ 3.625295850966693*^9, 3.62529618892808*^9, 3.625297142345553*^9,
+ 3.62530565285886*^9, 3.6253794031389637`*^9, 3.6254630678590384`*^9,
+ 3.625465533366205*^9, 3.625466017107444*^9, 3.625468474443779*^9,
+ 3.625550749182852*^9, 3.62555108321343*^9, 3.625552721254834*^9,
+ 3.625555683851441*^9, 3.625562396402617*^9, 3.625570835172556*^9,
+ 3.62591378117386*^9, 3.652673237478981*^9, 3.653042371214642*^9,
+ 3.653043001372182*^9, 3.6530436158297367`*^9, 3.6531092290624847`*^9,
+ 3.653109370802039*^9, 3.6658277254074497`*^9, 3.665827775083582*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD0", " ", "=", " ",
+ RowBox[{"%", "/.", "FierzTrafo"}]}]], "Input",
+ CellChangeTimes->{{3.624965679245668*^9, 3.624965685549016*^9}, {
+ 3.625295530669343*^9, 3.6252955346211367`*^9}, {3.625463077800538*^9,
+ 3.62546307915301*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}]}], "\[Pi]"]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}]}], "\[Pi]"]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625295535389194*^9, 3.625295856406333*^9, 3.6252961947112513`*^9,
+ 3.625297143231063*^9, 3.625305654780878*^9, 3.62537940520387*^9, {
+ 3.6254630708837852`*^9, 3.625463083079734*^9}, 3.625465535062874*^9,
+ 3.625466021767439*^9, 3.625468477627981*^9, 3.6255507552525682`*^9,
+ 3.625551084920434*^9, 3.625552726532205*^9, 3.625555684654168*^9,
+ 3.625562398170458*^9, 3.625570835972389*^9, 3.625913781455433*^9,
+ 3.652673238404284*^9, 3.653042373194377*^9, 3.653043003229764*^9,
+ 3.653043616717955*^9, 3.653109229837655*^9, 3.653109371629121*^9,
+ 3.665827777164407*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho] Terms", "Subsection",
+ CellChangeTimes->{{3.625305679137005*^9, 3.6253056846481037`*^9}, {
+ 3.625305953758569*^9, 3.625305953830447*^9}, {3.625305987185422*^9,
+ 3.625305989719503*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", " ", "Alfas"}], "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain2"}], " ", ")"}]}], " ", "+", " ",
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain1", ".", "chain4"}], ")"}]}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.62530597436487*^9, 3.625306047659739*^9}, {
+ 3.625306431043401*^9, 3.625306431203772*^9}, {3.625306539035005*^9,
+ 3.625306542994223*^9}, {3.6253066189204473`*^9, 3.6253066281104*^9}, {
+ 3.62546554633668*^9, 3.625465546849825*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmVkYGDQAOKlpVt/7WB67fjg3AyZnUD6hIqQBohe9+epOYj+VL3H
+Acz/29IEotts+yeAaD6RgIUgWkGGdyuI7msRPQ+i3edffwCiXRQYvoLoDUrX
+9XYBaSaPQGcQ7XMsLwFEL5CSqwfRsuGR80B0xNN360H0ioMHpu4B0oxsSfNA
+dPUZjZsg+oPY78cges3hjq93gPS820bLWZlfO8549/4mG5BeE7hYjB1IL+jY
+7M0BpJW6tZYZAGlHRuk6QyAtwe57zwhI52zbqmIGpAXearhYAemGRvYTD4F0
+qWDp3ddmrx1LbodLLjB/7fhYknUiiJ6ytXILiBboVNl3AEiv0rp5HkRnPF/8
+gyngtSMA+UeYpg==
+ "]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]", "]"}], "/.",
+ "murule"}]], "Input",
+ CellChangeTimes->{{3.6253064728403263`*^9, 3.625306478827217*^9}, {
+ 3.625306694391315*^9, 3.625306696026248*^9}, {3.6253089571639557`*^9,
+ 3.625308962889781*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ RowBox[{"mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ RowBox[{"mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3"}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3"}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmVkYGAwBGLWA7F6O5leO3pNeWYNornWn3QC0Qklsz1B9Ls9Oi0g
++m8FwyQQbbXx0SIQfWDZ5m0g+hz7hgsgel5r8iMQrXPr4DcQfWpbgsEuID3D
+WMAVRM970JQKovcprmgA0Tn7exaA6DmPV24E0W2SG/aB6Ok7zS+CaDOlTU9B
+tMW5HdK7gbQTa13qHiBdsPBJHoiWCRAvB9FGz/2mg+i2/d8XgWiG09orQPSN
+5oRbIHpKjPtTEC3QrPgSRMeIcn6/A6R3ySmp3gO5Z8aLFazMrx0XbGu4zQak
+f2iYSLIDae1Xqj4cQHqVd+IyAyDt4hdSZwikd3xru2cEpKcGf1ExA9IHvs53
+sQLSdduUTz4E0mqPt999bQYUt5klucD8teNcr+qJIHrCljtbQHSAQNa+A0B6
+R6zABRD9j4P5J1PAa0cAlP/AGg==
+ "]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructures"}]], "Input",
+ CellChangeTimes->{{3.625306804469974*^9, 3.625306811865828*^9}, {
+ 3.6253085499821987`*^9, 3.625308554515586*^9}, {3.625463131270597*^9,
+ 3.625463133326589*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625306813566082*^9, 3.625307173088584*^9, 3.6253072831365643`*^9,
+ 3.625307416876954*^9, 3.6253075755166607`*^9, 3.625307783872416*^9,
+ 3.625307924967304*^9, 3.625308088047762*^9, 3.625308556286714*^9,
+ 3.625308714775177*^9, 3.625308973642912*^9, 3.625309192010993*^9,
+ 3.625309447243217*^9, 3.625309583129259*^9, 3.625309685963169*^9,
+ 3.6253098409466343`*^9, 3.625310000866346*^9, 3.62531043016179*^9,
+ 3.6253130730720673`*^9, {3.625313126546463*^9, 3.62531314605309*^9}, {
+ 3.62531319794596*^9, 3.625313208994722*^9}, 3.6253134667440968`*^9,
+ 3.625313559972865*^9, 3.625313601638803*^9, 3.6253140032859783`*^9,
+ 3.625314090526945*^9, 3.625314121342135*^9, 3.625379771073818*^9,
+ 3.625463135357757*^9, 3.625465571345352*^9, 3.625466058335956*^9,
+ 3.6254685234602947`*^9, 3.625551181232664*^9, 3.625552891956258*^9, {
+ 3.6255557005253477`*^9, 3.625555706232604*^9}, 3.625562407898164*^9,
+ 3.625570853235896*^9, 3.6259139292379208`*^9, 3.652673261890915*^9,
+ 3.653042380961308*^9, 3.6530433401726017`*^9, 3.653043623040719*^9,
+ 3.653109235543488*^9, 3.653109376623309*^9, 3.6658277843129377`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]", " ", "=",
+ RowBox[{
+ RowBox[{"%", "/.", "FierzTrafo"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.625313243442471*^9, 3.625313248463183*^9},
+ 3.625313589247513*^9, 3.6253140738719587`*^9, 3.625314107489214*^9,
+ 3.625379774244885*^9, 3.625391085917942*^9, {3.625463147647232*^9,
+ 3.6254631498625803`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6253132495359*^9, 3.6253134688820744`*^9, 3.6253135647289143`*^9,
+ 3.625313603272923*^9, 3.625314006335417*^9, {3.625314095235948*^9,
+ 3.625314121611273*^9}, 3.625379774440558*^9, 3.625463151448051*^9,
+ 3.6254655800891027`*^9, 3.6254660589212103`*^9, 3.6254685255342073`*^9,
+ 3.6255511841858673`*^9, 3.625552893173984*^9, 3.6255557083026876`*^9,
+ 3.62556241044487*^9, 3.625570855230822*^9, 3.6259139292792892`*^9,
+ 3.652673265783565*^9, 3.6530423819067793`*^9, 3.6530433406888437`*^9,
+ 3.653043624477099*^9, 3.65310923593307*^9, 3.653109378577201*^9,
+ 3.665827784856077*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho]\[Sigma] Terms", "Subsection",
+ CellChangeTimes->{{3.6253056894518557`*^9, 3.625305702952609*^9}, {
+ 3.6253059566001167`*^9, 3.625305956697426*^9}, {3.625305992719819*^9,
+ 3.625305998398951*^9}, {3.6255511975925703`*^9, 3.625551199611137*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", " ", "Alfas"}], "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Drhosigma",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain5"}], " ", ")"}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.625380086650072*^9, 3.625380115400429*^9}, {
+ 3.625380187296126*^9, 3.625380187366157*^9}, 3.625465621642695*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6253801890080233`*^9, 3.625463179515177*^9,
+ 3.6254655948765287`*^9, 3.625465625526169*^9, 3.625466083309107*^9,
+ 3.625468531864109*^9, 3.625551203212915*^9, 3.625552906751918*^9,
+ 3.625555652623897*^9, 3.625562420127248*^9, 3.6255708635776987`*^9,
+ 3.62591395467631*^9, 3.652673294918086*^9, 3.6530423853506937`*^9,
+ 3.653043343151825*^9, 3.653043631763973*^9, 3.653109238938882*^9,
+ 3.65310938114788*^9, 3.665827788652053*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]\[Sigma]", "]"}], "/.",
+ "murule"}]], "Input",
+ CellChangeTimes->{{3.625381021060691*^9, 3.625381026948494*^9}, {
+ 3.625381133600312*^9, 3.625381137596294*^9}, {3.625381171232443*^9,
+ 3.625381179625353*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ TagBox[
+ FrameBox[GridBox[{
+ {
+ ItemBox[
+ TagBox[
+ RowBox[{
+ TemplateBox[{"693"},
+ "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, FrameStyle ->
+ GrayLevel[0.75], RoundingRadius -> 7]& )], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}],
+ Short[#, 5]& ],
+ BaseStyle->{Deployed -> False},
+ StripOnInput->False]},
+ {GridBox[{
+ {
+ TagBox[
+ TooltipBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource[
+ "FEStrings", "sizeBriefExplanation"], TraditionalForm],
+ ImageSizeCache->{68., {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->{64., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ TraditionalForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 33, 22680215688928057395, 5/2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ TraditionalForm],
+ ImageSizeCache->{70., {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[
+ Identity, 33, 22680215688928057395, 5 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ TraditionalForm],
+ ImageSizeCache->{54., {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[
+ Identity, 33, 22680215688928057395, Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ TraditionalForm],
+ ImageSizeCache->{94., {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[33]], TraditionalForm]], "Output",
+ CellChangeTimes->{3.62538103893913*^9, 3.6253811460725527`*^9,
+ 3.625381191516841*^9, 3.625381500799408*^9, 3.6253817020413837`*^9,
+ 3.6253822087703743`*^9, 3.625382320677655*^9, 3.625382593895569*^9,
+ 3.625382789374319*^9, 3.625383126427906*^9, 3.6253833000016117`*^9,
+ 3.625384315334889*^9, 3.625390954928145*^9, 3.625391056868614*^9,
+ 3.625391095455104*^9, 3.625463206891596*^9, 3.6254656158436604`*^9,
+ 3.6254656586746063`*^9, 3.625466104066415*^9, 3.625468551669221*^9,
+ 3.625551214414308*^9, 3.6255529220120087`*^9, 3.6255555865424967`*^9,
+ 3.625555663691324*^9, 3.625562431146093*^9, 3.625570875297879*^9,
+ 3.625913979683934*^9, 3.652673308647531*^9, 3.6530424011142*^9,
+ 3.6530433561277657`*^9, 3.65304364486093*^9, 3.653109253155106*^9,
+ 3.653109395034267*^9, 3.665827805222763*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructures"}]], "Input",
+ CellChangeTimes->{{3.6254631939132833`*^9, 3.625463195188222*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd12",
+ " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "mNeu", " ",
+ "xd12", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "mNeu", " ",
+ "xd12", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "mNeu", " ",
+ "xd12", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "mNeu", " ",
+ "xd12", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd12", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd12", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd12", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd12", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625381200706884*^9, 3.6253815016806393`*^9, 3.625381702759262*^9,
+ 3.6253822094567823`*^9, 3.625382321318186*^9, 3.6253825944550657`*^9,
+ 3.625382789824521*^9, 3.625383126573975*^9, 3.6253833003439837`*^9,
+ 3.625384316155945*^9, 3.6253909557280817`*^9, {3.625391031948564*^9,
+ 3.625391057638604*^9}, 3.6253910964964542`*^9, 3.625463207569943*^9,
+ 3.625465616219475*^9, 3.6254656595375223`*^9, 3.625466104644033*^9,
+ 3.625468581195877*^9, 3.625551214621237*^9, 3.625552922178753*^9,
+ 3.6255555869661303`*^9, 3.625555663904789*^9, 3.6255624313013687`*^9,
+ 3.6255708754663*^9, 3.625913980170545*^9, 3.652673308966083*^9,
+ 3.653042401493425*^9, 3.65304335639069*^9, 3.653043644992577*^9,
+ 3.6531092533021097`*^9, 3.653109395197806*^9, 3.665827805474003*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"%", "/.", "FierzTrafo"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.6253909612811747`*^9, 3.6253909710234747`*^9}, {
+ 3.625391020386517*^9, 3.625391027139091*^9}, 3.625391069672509*^9, {
+ 3.62546321935913*^9, 3.625463223446134*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6253909730228977`*^9, 3.625391029045554*^9,
+ 3.625391063001596*^9, 3.625391097406967*^9, 3.625463237800507*^9,
+ 3.625465660177582*^9, 3.6254661052195377`*^9, 3.625468586915668*^9,
+ 3.625551214765788*^9, 3.625552926379499*^9, 3.625555664130527*^9,
+ 3.625562431476336*^9, 3.6255708756564293`*^9, 3.6259139802298317`*^9,
+ 3.65267333155617*^9, 3.653042401697641*^9, 3.653043356586083*^9,
+ 3.6530436451354723`*^9, 3.653109253525865*^9, 3.653109395355809*^9,
+ 3.665827805603149*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Final result", "Subsection",
+ CellChangeTimes->{{3.6253799936550903`*^9, 3.625380000100943*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FinalB1", " ", "=", " ",
+ RowBox[{
+ "FinalD0", " ", "+", " ", "FinalD\[Rho]", " ", "+", " ",
+ "FinalD\[Rho]\[Sigma]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625391139147846*^9, 3.625391213519237*^9}, {
+ 3.625391308590064*^9, 3.625391342286079*^9}, {3.6253914689097357`*^9,
+ 3.625391472534728*^9}, 3.6254652527776127`*^9, {3.6259848989769173`*^9,
+ 3.625984902047152*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "FinalB1", "]"}]], "Input",
+ CellChangeTimes->{{3.625463250710516*^9, 3.625463259482606*^9}, {
+ 3.625465256617535*^9, 3.62546525897753*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R"}], "+",
+ RowBox[{"g1R", " ", "g2L"}]}], ")"}]}], "-",
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2L"}], "+",
+ RowBox[{"g1R", " ", "g2R"}]}], ")"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd12", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}]}], "+",
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ", "mNeu", " ", "mq", " ", "xd12"}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+", "xd12", "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+", "xd12", "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"g2R", " ", "mNeu", " ", "mq", " ", "xd12"}]}],
+ ")"}]}]}], ")"}]}], "-",
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"2", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd12"}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd12"}],
+ "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625463261661044*^9, 3.625463870298188*^9,
+ 3.625465259897517*^9, 3.6254653347570887`*^9, 3.62546540130726*^9,
+ 3.6254656776622343`*^9, 3.6254661204266253`*^9, 3.62546859556394*^9,
+ 3.6255512417784967`*^9, 3.6255529388867817`*^9, 3.6255557148741283`*^9,
+ 3.625562369083843*^9, 3.625562445663342*^9, 3.625570885338773*^9,
+ 3.625913991806244*^9, 3.653042403265369*^9, 3.653043357389061*^9,
+ 3.65304364558532*^9, 3.6531092561632643`*^9, 3.6531093955245934`*^9,
+ 3.6658278063411303`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"AType", ",", "SType"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.625463276939246*^9, 3.6254633396136227`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ", "AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R"}], "+",
+ RowBox[{"g1R", " ", "g2L"}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd12", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}]}], "+",
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ", "mNeu", " ", "mq", " ", "xd12"}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+", "xd12", "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+", "xd12", "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"g2R", " ", "mNeu", " ", "mq", " ", "xd12"}]}], ")"}]}]}],
+ ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2L"}], "+",
+ RowBox[{"g1R", " ", "g2R"}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd12", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}]}]}], "-",
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"2", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd12"}]}],
+ ")"}]}], "-",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd12"}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.625463291863235*^9, 3.625463342857252*^9},
+ 3.625463872203236*^9, 3.6254652641991873`*^9, 3.625465337448148*^9,
+ 3.625465402800016*^9, 3.62546568010891*^9, 3.625466123112153*^9,
+ 3.625468602293141*^9, 3.6255512461879587`*^9, 3.625552942110736*^9,
+ 3.625555715829377*^9, 3.625562450967411*^9, 3.625570886139935*^9,
+ 3.6259139943176813`*^9, 3.653042403421092*^9, 3.653043357611697*^9,
+ 3.653043645757091*^9, 3.6531092576418543`*^9, 3.653109395678342*^9,
+ 3.665827810145956*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "Codeready"}]], "Input",
+ CellChangeTimes->{{3.625465268066956*^9, 3.6254652763070173`*^9}, {
+ 3.625465379267952*^9, 3.625465416977507*^9}, {3.625465684969639*^9,
+ 3.6254656962466307`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "pi"}]],
+ RowBox[{"Alfas", " ", "AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd12", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd12", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+", "xd12", "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+", "xd12", "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd12", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "pi"}]],
+ RowBox[{"Alfas", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd12", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}]}], "-",
+ RowBox[{
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd12", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "-",
+ RowBox[{
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd12", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6254652773471117`*^9, 3.625465338898035*^9, {3.6254654048755093`*^9,
+ 3.625465418743664*^9}, 3.625465698105775*^9, 3.625466128195532*^9,
+ 3.6254686062202387`*^9, 3.625551247807169*^9, 3.625552962477865*^9,
+ 3.625555716891464*^9, 3.625562358972231*^9, 3.625562458067978*^9,
+ 3.6255708873431053`*^9, 3.625913996437868*^9, 3.653042404802945*^9,
+ 3.653043357978786*^9, 3.653043660757042*^9, 3.653109258966813*^9,
+ 3.653109395867741*^9, 3.6658278127071323`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.625465702912792*^9, 3.625465707861985*^9}}],
+
+Cell["\<\
+ -(Alfas*AType*(FL(1,i,tt,gen)*(ER(1,i,tt,gen)*(2*xd00 + (xd1 + xd11 + \
+xd12 + 2*xd13 + xd2 + xd22 + xd23 + xd3 + xd33)*Mf(tt,gen)**2) +
+ - xd12*ELc(1,i,tt,gen)*Mf(tt,gen)*MNeu(1)) + FR(1,i,tt,gen)*
+ - (ELc(1,i,tt,gen)*(2*xd00 + (xd1 + xd11 + xd12 + 2*xd13 + xd2 + \
+xd22 + xd23 + xd3 + xd33)*Mf(tt,gen)**2) + \
+xd12*ER(1,i,tt,gen)*Mf(tt,gen)*MNeu(1)) +
+ - 2*(xd0 + xd1 + xd12 + xd2 + xd23 + \
+xd3)*(ER(1,i,tt,gen)*FL(1,i,tt,gen) + \
+ELc(1,i,tt,gen)*FR(1,i,tt,gen))*pbp2(tt,gen)))/(16.*pi) -
+ - (Alfas*SType*(-(FR(1,i,tt,gen)*(ER(1,i,tt,gen)*(8*xd00 + (xd1 + xd11 \
++ 2*xd12 + 2*xd13 + xd2 + xd22 + 2*xd23 + xd3 + xd33)*Mf(tt,gen)**2) +
+ - 2*xd12*ELc(1,i,tt,gen)*Mf(tt,gen)*MNeu(1))) - FL(1,i,tt,gen)*
+ - (ELc(1,i,tt,gen)*(8*xd00 + (xd1 + xd11 + 2*xd12 + 2*xd13 + xd2 \
++ xd22 + 2*xd23 + xd3 + xd33)*Mf(tt,gen)**2) + \
+2*xd12*ER(1,i,tt,gen)*Mf(tt,gen)*MNeu(1)) -
+ - 2*(xd0 + xd1 + xd12 + xd2 + xd23 + \
+xd3)*(ELc(1,i,tt,gen)*FL(1,i,tt,gen) + \
+ER(1,i,tt,gen)*FR(1,i,tt,gen))*pbp2(tt,gen)))/(16.*pi)\
+\>", "Output",
+ CellChangeTimes->{3.625466132729841*^9, 3.62546861017301*^9,
+ 3.625551249508636*^9, 3.62555297064575*^9, 3.625555717631967*^9,
+ 3.625562360818104*^9, 3.625562460406558*^9, 3.6255708883151703`*^9,
+ 3.625913998113575*^9, 3.653042406057294*^9, 3.653043358106743*^9,
+ 3.653043663233596*^9, 3.6531092744548473`*^9, 3.653109395993301*^9,
+ 3.665827814173439*^9}]
+}, Open ]]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Box B2", "Section",
+ CellChangeTimes->{{3.6254707548495703`*^9, 3.625470756921899*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Subsection",
+ CellChangeTimes->{{3.6254707684423237`*^9, 3.625470769249484*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ubar2", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p2", ",", "m2"}], "]"}]}], ";", " ",
+ RowBox[{"ua", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pa", ",", "ma"}], "]"}]}], ";",
+ RowBox[{"ubar1", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p1", ",", "m1"}], "]"}]}], ";", " ",
+ RowBox[{"ub", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pb", ",", " ", "mb"}], "]"}]}], ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain1", " ", "=", " ",
+ RowBox[{
+ "ubar2", ".", "Drei", ".", "mG", ".", "Vier", ".", "ub"}]}]], "Input",
+ CellChangeTimes->{{3.6259156617510347`*^9, 3.625915694985009*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ ")"}], ".", "mG", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.62591569581607*^9, 3.625981739304659*^9,
+ 3.626067426588866*^9, 3.652673161995844*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain2", " ", "=", " ",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pa", "]"}], " ", "+", " ",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], "+", "mq"}], ")"}], ".", "Eins",
+ ".", "ua"}]}]], "Input",
+ CellChangeTimes->{{3.6259157242812767`*^9, 3.6259157401748877`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259157407798853`*^9, 3.625981739930626*^9,
+ 3.6260674276487226`*^9, 3.652673162609928*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain3", " ", "=", " ",
+ RowBox[{"ubar2", ".", "Drei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Vier", ".",
+ "ub"}]}]], "Input",
+ CellChangeTimes->{{3.6259157642653027`*^9, 3.6259157743929253`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625915782321209*^9, 3.625981740615539*^9,
+ 3.626067432045326*^9, 3.6526731631851892`*^9}]
+}, Open ]],
+
+Cell["\<\
+Minus signs in chain4 and chain5 are due to -q in fermion propagator.\
+\>", "Text",
+ CellChangeTimes->{{3.62598167965589*^9, 3.625981706895875*^9}, {
+ 3.625981741097678*^9, 3.625981742920375*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain4", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Eins", ".",
+ "ua"}]}]}]], "Input",
+ CellChangeTimes->{{3.625915789087606*^9, 3.625915808769886*^9},
+ 3.625915876657054*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}]}], TraditionalForm]], "Output",\
+
+ CellChangeTimes->{3.625915812269375*^9, 3.625915882945051*^9,
+ 3.6259817453907013`*^9, 3.6260674381109858`*^9, 3.6526731659825783`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain5", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".", "Eins", ".",
+ "ua"}]}]}]], "Input",
+ CellChangeTimes->{{3.625915838103277*^9, 3.625915842472439*^9},
+ 3.625915877251523*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}]}], TraditionalForm]], "Output",\
+
+ CellChangeTimes->{3.625915843187273*^9, 3.625915883880906*^9,
+ 3.6259817460638123`*^9, 3.6260674390110703`*^9, 3.652673167207*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Codeready", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",",
+ RowBox[{"mG", "\[Rule]", "MGl"}], ",", " ",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g2L", " ", "\[Rule]",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g3L", "\[Rule]",
+ RowBox[{"JL", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g3R", "\[Rule]",
+ RowBox[{"JR", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g4R", "\[Rule]",
+ RowBox[{"IR", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g4L", " ", "\[Rule]",
+ RowBox[{"IL", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.62591645978354*^9, 3.625916497943181*^9}, {
+ 3.6259165295838623`*^9, 3.6259165682328444`*^9}, {3.6259867376569557`*^9,
+ 3.625986741895039*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "(", "1", ")"}]}], ",",
+ RowBox[{"mG", "\[Rule]", "MGl"}], ",",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2L", "\[Rule]",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g3L", "\[Rule]",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g3R", "\[Rule]",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g4R", "\[Rule]",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g4L", "\[Rule]",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259165688838577`*^9, 3.6259817467616796`*^9,
+ 3.6259867427562323`*^9, 3.626067440756269*^9, 3.6526731687983*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drho", "=", " ",
+ RowBox[{
+ RowBox[{"xd1", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd2", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd3", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", " ", "\[Rho]"}],
+ "]"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.625916278363283*^9, 3.625916312241869*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"xd1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], "+",
+ RowBox[{"xd3", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"xd2", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625916312660441*^9, 3.625981747387697*^9,
+ 3.626067470442799*^9, 3.652673171337164*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drhosigma", "=", " ",
+ RowBox[{
+ RowBox[{"xd00", " ",
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd33", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Sigma]"}], "]"}]}], "+", " ",
+ RowBox[{"xd12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+",
+ " ", "\[IndentingNewLine]",
+ RowBox[{"xd13",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ",
+ "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Rho]"}], "]"}]}]}],
+ ")"}]}], " ", "+", " ", "\[IndentingNewLine]",
+ RowBox[{"xd23",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ",
+ "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Rho]"}], "]"}]}]}],
+ ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.62591630782108*^9, 3.625916413061017*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+",
+ RowBox[{"xd13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd33", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd22", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259164171764717`*^9, 3.625981748069598*^9,
+ 3.6260674799264393`*^9, 3.6526731724342823`*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D0 terms", "Subsection",
+ CellChangeTimes->{{3.625470771920247*^9, 3.625470772872839*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD0", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", " ",
+ RowBox[{
+ RowBox[{"xd0", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"chain1", ".", "chain2"}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "murule"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.625981788758131*^9, 3.625981794105131*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625981807751281*^9, 3.626067496563904*^9}]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD0", " ", "=", " ",
+ RowBox[{"StartD0", "/.", "SortoutLorentzStructures3"}]}]], "Input",
+ CellChangeTimes->{{3.6259823800977488`*^9, 3.6259823962212343`*^9}, {
+ 3.625982452500963*^9, 3.625982456189925*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.6259823919082537`*^9, 3.625982397149303*^9},
+ 3.625982460166314*^9, 3.6259827451124887`*^9, 3.625982817392129*^9,
+ 3.6259830643693247`*^9, 3.6259832029652*^9, 3.6259832599786587`*^9,
+ 3.626067513513565*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho] Terms", "Subsection",
+ CellChangeTimes->{{3.625470775297299*^9, 3.6254707802737217`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", " ",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain2"}], " ", ")"}]}], " ", "+", " ",
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain1", ".", "chain4"}], ")"}]}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.625983379289907*^9, 3.625983388018523*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625983401137442*^9, 3.6260675622615767`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]", "]"}], "/.",
+ "SortoutLorentzStructures3"}]}]], "Input",
+ CellChangeTimes->{{3.62598342933456*^9, 3.625983434090261*^9}, {
+ 3.625983465827105*^9, 3.6259834891467876`*^9}, {3.6259845696658*^9,
+ 3.625984574709511*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625983440573863*^9, 3.625983495266831*^9,
+ 3.625983613416943*^9, 3.625984200131782*^9, 3.625984330320065*^9,
+ 3.625984426115252*^9, 3.625984581043947*^9, 3.626067567322508*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho]\[Sigma] Terms", "Subsection",
+ CellChangeTimes->{{3.625470783491147*^9, 3.6254707886551847`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Drhosigma",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain5"}], " ", ")"}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.6259844831509743`*^9, 3.625984489424461*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984497145364*^9, 3.6259848685697937`*^9,
+ 3.6260675743411903`*^9, 3.6526731828593483`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]\[Sigma]", "]"}], "/.",
+ "murule"}]], "Input",
+ CellChangeTimes->{{3.625984540479665*^9, 3.6259845424287024`*^9}, {
+ 3.625984648931429*^9, 3.625984650660887*^9}, 3.625984687689665*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984552559655*^9, 3.625984593887561*^9,
+ 3.625984657348662*^9, 3.625984695799453*^9, 3.625984874861145*^9,
+ 3.625985025287835*^9, 3.626067579979107*^9, 3.65267319707668*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{"%", "/.", "SortoutLorentzStructures3"}]}]], "Input",
+ CellChangeTimes->{{3.625984702701344*^9, 3.6259847124275846`*^9}, {
+ 3.6259850018795757`*^9, 3.625985015082892*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984713529788*^9, 3.6259848752949057`*^9,
+ 3.625985025593197*^9, 3.62606758031211*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Final result", "Subsection",
+ CellChangeTimes->{{3.625470790653159*^9, 3.6254707993916273`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FinalB2", " ", "=", " ",
+ RowBox[{
+ "FinalD0", " ", "+", " ", "FinalD\[Rho]", " ", "+", " ",
+ "FinalD\[Rho]\[Sigma]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625984907389515*^9, 3.625984907483933*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "FinalB2", "]"}]], "Input",
+ CellChangeTimes->{{3.625984916063054*^9, 3.625984921781796*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "-",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g4L", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "+",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}],
+ "-",
+ RowBox[{"g2L", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "+",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "-",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g4R", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}]}], ")"}]}]}], ")"}]}],
+ "-",
+ RowBox[{"g2R", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259849251991987`*^9, 3.625985031289845*^9,
+ 3.625986752428103*^9, 3.626067592569935*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"AType", ",", "SType"}], "}"}]}], "]"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00"}], "-",
+
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00"}], "-",
+
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00"}], "+",
+
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00"}]}],
+ ")"}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ "+",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "+",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984952725094*^9, 3.625985037668517*^9,
+ 3.625986753505628*^9, 3.626067593162537*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "Codeready"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["pi", "2"]}]],
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"xd00", " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], "+",
+ RowBox[{"xd00", " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{"xd00", " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"xd00", " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["pi", "2"]}]],
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ")"}],
+ " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984964721087*^9, 3.6259850503486433`*^9,
+ 3.625986756751162*^9, 3.6260675940044327`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.625985064700026*^9, 3.625985068906664*^9}}],
+
+Cell["\<\
+ (AType*(-(xd00*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)\
+) + xd00*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen) +
+ - xd00*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen) - \
+xd00*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)))/(64.*pi**2) + \
+
+ - (SType*(-(ELc(1,j,tt,gen)*FL(1,i,tt,gen)*Mf(tt,gen)*(JR(i,tt,gen)*(-(\
+MGl*xd0*IR(j,tt,gen)) + (xd1 + xd2 + xd3)*IL(j,tt,gen)*Mf(tt,gen)) +
+ - JL(i,tt,gen)*(-(MGl*xd0*IL(j,tt,gen)) + (xd1 + xd2 + \
+xd3)*IR(j,tt,gen)*Mf(tt,gen)))) -
+ - \
+ER(1,j,tt,gen)*FR(1,i,tt,gen)*Mf(tt,gen)*(JR(i,tt,gen)*(-(MGl*xd0*IR(j,tt,gen)\
+) + (xd1 + xd2 + xd3)*IL(j,tt,gen)*Mf(tt,gen)) +
+ - JL(i,tt,gen)*(-(MGl*xd0*IL(j,tt,gen)) + (xd1 + xd2 + \
+xd3)*IR(j,tt,gen)*Mf(tt,gen))) + MGl*(xd0 + \
+xd3)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JL(i,tt,gen)*MNeu(1) +
+ - MGl*(xd0 + \
+xd3)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JL(i,tt,gen)*MNeu(1) + \
+MGl*(xd0 + \
+xd3)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JR(i,tt,gen)*MNeu(1) +
+ - MGl*(xd0 + \
+xd3)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JR(i,tt,gen)*MNeu(1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)*Mf(tt,gen)*\
+MNeu(1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)*Mf(tt,gen)*\
+MNeu(1)))/(64.*pi**2)\
+\>", "Output",
+ CellChangeTimes->{3.6259850698836107`*^9, 3.625986758249692*^9,
+ 3.626067594859873*^9}]
+}, Open ]]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Box B3", "Section",
+ CellChangeTimes->{{3.6253800167039537`*^9, 3.6253800177985477`*^9}, {
+ 3.625470747571538*^9, 3.625470748120454*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Subsection",
+ CellChangeTimes->{{3.625470200629331*^9, 3.625470201834923*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ubar2", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p2", ",", "m2"}], "]"}]}], ";", " ",
+ RowBox[{"ua", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pa", ",", "ma"}], "]"}]}], ";",
+ RowBox[{"ubar1", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p1", ",", "m1"}], "]"}]}], ";", " ",
+ RowBox[{"ub", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pb", ",", " ", "mb"}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625470368194413*^9, 3.625470376713516*^9}, {
+ 3.6254704077065573`*^9, 3.625470440537447*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain1", " ", "=", " ",
+ RowBox[{"ubar2", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "p2", "]"}], "+", "mq"}], ")"}], ".", "Eins",
+ ".", "ua"}]}]], "Input",
+ CellChangeTimes->{{3.62547048212044*^9, 3.625470533171832*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470535737146*^9, 3.625550701230254*^9,
+ 3.625552977555921*^9, 3.6255557437373543`*^9, 3.625562598774719*^9,
+ 3.6255709087545767`*^9, 3.62557097848352*^9, 3.6259140077621517`*^9,
+ 3.653044725482545*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain2", " ", "=", " ",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pb", "]"}], "+", "mq"}], ")"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "ub"}]}]], "Input",
+ CellChangeTimes->{{3.625470557485593*^9, 3.625470587584016*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6254705907775*^9, 3.625550701960298*^9,
+ 3.625552978108302*^9, 3.6255557442298937`*^9, 3.625562599475512*^9,
+ 3.625570909486326*^9, 3.625570979058633*^9, 3.6259140083650846`*^9,
+ 3.6530447261402187`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain3", " ", "=", " ",
+ RowBox[{"ubar2", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Eins", ".",
+ "ua"}]}]], "Input",
+ CellChangeTimes->{{3.6254706413015537`*^9, 3.625470657513546*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470664948099*^9, 3.625550702554963*^9,
+ 3.625552978705851*^9, 3.625555745076521*^9, 3.6255626001266537`*^9,
+ 3.625570910059145*^9, 3.625570979684875*^9, 3.625914008875667*^9,
+ 3.653044726753985*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain4", " ", "=", " ",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "ub"}]}]], "Input",
+ CellChangeTimes->{{3.625470683218503*^9, 3.625470703972258*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470709357543*^9, 3.62555070325313*^9,
+ 3.625552979296555*^9, 3.625555745537071*^9, 3.625562600749061*^9,
+ 3.625570910615279*^9, 3.625570980249308*^9, 3.6259140094220448`*^9,
+ 3.6530447272962523`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain5", " ", "=", " ",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "ub"}]}]], "Input",
+ CellChangeTimes->{{3.625470719226307*^9, 3.625470724374407*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470725480338*^9, 3.625550704117882*^9,
+ 3.625552979851006*^9, 3.6255557461781473`*^9, 3.625562601363467*^9,
+ 3.6255709111408577`*^9, 3.625570980892461*^9, 3.625914009973055*^9,
+ 3.653044727801319*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Codeready", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",", " ",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g2L", " ", "\[Rule]",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}]}],
+ "}"}]}]], "Input",
+ CellChangeTimes->{{3.625470830182066*^9, 3.625470847672021*^9}, {
+ 3.6255625787442217`*^9, 3.6255625930042877`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "(", "1", ")"}]}], ",",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2L", "\[Rule]",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470848813343*^9, 3.625550704861367*^9,
+ 3.625552980328117*^9, 3.6255557467891827`*^9, 3.625562602665963*^9,
+ 3.625570911769747*^9, 3.625570981473147*^9, 3.625914010643244*^9,
+ 3.6530447283223248`*^9}]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"Drho", "=", " ",
+ RowBox[{
+ RowBox[{"xd1", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd2", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd3", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", " ", "\[Rho]"}], "]"}]}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625571007962538*^9, 3.625571008648773*^9}, {
+ 3.625571048633156*^9, 3.625571048740608*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drhosigma", "=", " ",
+ RowBox[{
+ RowBox[{"xd00", " ",
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd33", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], "+", " ",
+ RowBox[{"xd12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"xd13",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"xd23",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}]}]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.6255710173324614`*^9, 3.62557106970369*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+",
+ RowBox[{"xd13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd11", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255710346991673`*^9, 3.6255710716053057`*^9,
+ 3.6259140116705227`*^9, 3.653044729464416*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["\[LineSeparator]D0 Terms", "Subsection",
+ CellChangeTimes->{{3.62546576476748*^9, 3.6254657712429934`*^9},
+ 3.653044729905669*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{" ",
+ RowBox[{"StartD0", " ", "=",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{"-", " ", "xd0"}], " ",
+ RowBox[{"Alfas", "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"chain1", ".", "chain2"}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "massrules"}]}]}]], "Input",
+ CellChangeTimes->{
+ 3.625549224689571*^9, 3.625549379429364*^9, {3.6255494365429688`*^9,
+ 3.625549442797769*^9}, {3.625550572895815*^9, 3.625550577600449*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6255492463868313`*^9, 3.625549381030746*^9, {3.625549440786477*^9,
+ 3.625549444319077*^9}, 3.6255505790000763`*^9, 3.625550707953479*^9,
+ 3.62555298790516*^9, 3.625555759208891*^9, 3.625562614987434*^9,
+ 3.625571232711402*^9, 3.6259145111932*^9, 3.653044737569665*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD0", "/.", "SortoutLorentzStructures2"}]], "Input",
+ CellChangeTimes->{{3.62554954561272*^9, 3.625549554361992*^9},
+ 3.625550550123505*^9, {3.6255505830204277`*^9, 3.6255505846351843`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "PTypeWrongOrder", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}]}], "\[Pi]"]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "STypeWrongOrder", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}]}], "\[Pi]"]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255495558003063`*^9, 3.625550585500736*^9,
+ 3.625550711829281*^9, 3.6255529943601017`*^9, 3.625555759390747*^9,
+ 3.625562615215798*^9, 3.625571233470749*^9, 3.62591451143618*^9,
+ 3.653044737773532*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD0", " ", "=", " ",
+ RowBox[{"%", "/.", "FierzTrafo"}]}]], "Input",
+ CellChangeTimes->{{3.6255506154508457`*^9, 3.625550624660131*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}]}], "\[Pi]"]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}]}], "\[Pi]"]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625550625196857*^9, 3.625550713067741*^9,
+ 3.625552997279407*^9, 3.625555759717927*^9, 3.625562616737558*^9,
+ 3.625571234543144*^9, 3.62591451166124*^9, 3.653044738560134*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho] Terms", "Subsection",
+ CellChangeTimes->{3.6254657824696617`*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", " ", "Alfas"}], "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Drho", " ",
+ RowBox[{"chain3", ".", "chain2"}]}], " ", "+", " ",
+ RowBox[{"Drho", " ",
+ RowBox[{"chain1", ".", "chain4"}]}]}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.6255540382009974`*^9, 3.625554093599063*^9}, {
+ 3.62555412376963*^9, 3.625554134579246*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625554143382416*^9, 3.625555776220944*^9, 3.62556262793925*^9, {
+ 3.62557124383886*^9, 3.625571267858328*^9}, 3.625914520722487*^9,
+ 3.653044746637443*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]", "]"}]], "Input",
+ CellChangeTimes->{{3.625554215196854*^9, 3.6255542298631*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ RowBox[{"mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1"}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1"}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1"}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2"}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.625554216121532*^9, 3.6255542324690228`*^9},
+ 3.6255545462234364`*^9, 3.6255546851747828`*^9, 3.6255548765534363`*^9,
+ 3.625554970208535*^9, 3.625555777747737*^9, 3.6255626310399847`*^9,
+ 3.6255712716863823`*^9, 3.625914524777499*^9, 3.6530447489515676`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructures2"}]], "Input",
+ CellChangeTimes->{{3.625554312291984*^9, 3.6255543256773243`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd1", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd2", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd3", " ",
+
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625554326502562*^9, 3.62555455113966*^9,
+ 3.6255546909322033`*^9, 3.625554882724928*^9, 3.6255549754611998`*^9,
+ 3.625555784031384*^9, 3.625562632667982*^9, 3.6255712757725077`*^9,
+ 3.625914524916767*^9, 3.6530447490958443`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]", " ", "=",
+ RowBox[{
+ RowBox[{"%", "/.", "FierzTrafo"}], "/.", "massrules"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd1", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd3", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255543901824207`*^9, 3.62555456282705*^9,
+ 3.625554979480995*^9, 3.625555785133994*^9, 3.62556263419094*^9,
+ 3.625571282073535*^9, 3.6259145249965677`*^9, 3.653044749922812*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho]\[Sigma] Terms", "Subsection",
+ CellChangeTimes->{3.625465790278585*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", " ", "Alfas"}], "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Drhosigma",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain5"}], " ", ")"}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625555235870516*^9, 3.625555792946102*^9,
+ 3.625562642959251*^9, 3.625571334748061*^9, 3.625914613204002*^9,
+ 3.653044758018059*^9, 3.653044963510625*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]\[Sigma]", "]"}], "/.",
+ "murule"}]], "Input",
+ CellChangeTimes->{{3.6255552983803873`*^9, 3.625555300685236*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ TagBox[
+ FrameBox[GridBox[{
+ {
+ ItemBox[
+ TagBox[
+ RowBox[{
+ TemplateBox[{"693"},
+ "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, FrameStyle ->
+ GrayLevel[0.75], RoundingRadius -> 7]& )], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}],
+ Short[#, 5]& ],
+ BaseStyle->{Deployed -> False},
+ StripOnInput->False]},
+ {GridBox[{
+ {
+ TagBox[
+ TooltipBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource[
+ "FEStrings", "sizeBriefExplanation"], TraditionalForm],
+ ImageSizeCache->{68., {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->{64., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ TraditionalForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 107, 22596507806390978224, 5/2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ TraditionalForm],
+ ImageSizeCache->{70., {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[
+ Identity, 107, 22596507806390978224, 5 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ TraditionalForm],
+ ImageSizeCache->{54., {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[
+ Identity, 107, 22596507806390978224, Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ TraditionalForm],
+ ImageSizeCache->{94., {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[107]], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625555275387726*^9, 3.625555311210215*^9,
+ 3.6255554223003283`*^9, 3.6255556234096413`*^9, 3.625555810967856*^9,
+ 3.625555886018395*^9, 3.625555954691062*^9, 3.625562652989259*^9,
+ 3.625571348243596*^9, 3.625914635246326*^9, 3.6530447700688353`*^9,
+ 3.653044975409461*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructures2"}]], "Input",
+ CellChangeTimes->{{3.62555533970471*^9, 3.625555347988142*^9},
+ 3.6255554086704407`*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd13",
+ " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "mNeu", " ",
+ "xd13", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "mNeu", " ",
+ "xd13", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "mNeu", " ",
+ "xd13", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "mNeu", " ",
+ "xd13", " ", "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd13", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd13", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd13", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd13", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd23", " ",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625555349075697*^9, 3.625555427133422*^9,
+ 3.62555562363573*^9, 3.6255558111221743`*^9, 3.625555886273706*^9,
+ 3.625555954876986*^9, 3.625562653169735*^9, 3.62557134853373*^9,
+ 3.625914635503572*^9, 3.65304477024918*^9, 3.653044975570483*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"%", "/.", "FierzTrafo"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.625555890369458*^9, 3.625555897440041*^9},
+ 3.625555928536271*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd22", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd33", " ",
+ SuperscriptBox["mq", "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mq"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd23", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625555898316545*^9, {3.625555935088636*^9, 3.625555955075028*^9},
+ 3.625562653397596*^9, 3.625571348812758*^9, 3.625914635567712*^9,
+ 3.6530447704098597`*^9, 3.653044975728684*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Final result", "Subsection",
+ CellChangeTimes->{3.6254657990367603`*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FinalB3", " ", "=", " ",
+ RowBox[{
+ "FinalD0", " ", "+", " ", "FinalD\[Rho]", " ", "+", " ",
+ "FinalD\[Rho]\[Sigma]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625561408213842*^9, 3.6255614083087883`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "FinalB3", "]"}]], "Input",
+ CellChangeTimes->{{3.625561415636224*^9, 3.625561415815188*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R"}], "+",
+ RowBox[{"g1R", " ", "g2L"}]}], ")"}]}], "-",
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2L"}], "+",
+ RowBox[{"g1R", " ", "g2R"}]}], ")"}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}]}], "+",
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ", "mNeu", " ", "mq", " ", "xd13"}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+", "xd13", "+", "xd2", "+",
+ "xd22", "+", "xd23", "+", "xd3", "+", "xd33"}], ")"}]}],
+ "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+", "xd13", "+", "xd2", "+",
+ "xd22", "+", "xd23", "+", "xd3", "+", "xd33"}], ")"}]}],
+ "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"g2R", " ", "mNeu", " ", "mq", " ", "xd13"}]}],
+ ")"}]}]}], ")"}]}], "-",
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"2", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd13"}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd13"}],
+ "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255614170115843`*^9, 3.625562661854707*^9,
+ 3.6255713631909523`*^9, 3.625914673887027*^9, 3.653044771164756*^9,
+ 3.6530449762002983`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"AType", ",", "SType"}], "}"}]}], "]"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ", "AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R"}], "+",
+ RowBox[{"g1R", " ", "g2L"}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}]}], "+",
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ", "mNeu", " ", "mq", " ", "xd13"}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+", "xd13", "+", "xd2", "+",
+ "xd22", "+", "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+", "xd13", "+", "xd2", "+",
+ "xd22", "+", "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"g2R", " ", "mNeu", " ", "mq", " ", "xd13"}]}], ")"}]}]}],
+ ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2L"}], "+",
+ RowBox[{"g1R", " ", "g2R"}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}]}]}], "-",
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"2", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd13"}]}],
+ ")"}]}], "-",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd13"}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625561426914452*^9, 3.625562663901211*^9,
+ 3.625571364969079*^9, 3.625914674226596*^9, 3.653044771378222*^9,
+ 3.653044976389133*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "Codeready"}]], "Input",
+ CellChangeTimes->{{3.625561441523443*^9, 3.625561445434843*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "pi"}]],
+ RowBox[{"Alfas", " ", "AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd13", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+", "xd13", "+", "xd2", "+",
+ "xd22", "+", "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+", "xd13", "+", "xd2", "+",
+ "xd22", "+", "xd23", "+", "xd3", "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd13", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "pi"}]],
+ RowBox[{"Alfas", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd0", "+", "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+",
+ "xd3"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}]}], "-",
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd13", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "-",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd13", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"8", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625561446312736*^9, 3.6255626648180447`*^9,
+ 3.62557136634932*^9, 3.6259146768456573`*^9, 3.6530447748139067`*^9,
+ 3.653044976600382*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.625561458524835*^9, 3.625561462586928*^9}}],
+
+Cell["\<\
+ -(Alfas*AType*(ELc(1,i,tt,gen)*(FR(1,i,tt,gen)*(2*xd00 + (xd1 + xd11 \
++ 2*xd12 + xd13 + xd2 + xd22 + xd23 + xd3 + xd33)*Mf(tt,gen)**2) +
+ - xd13*FL(1,i,tt,gen)*Mf(tt,gen)*MNeu(1)) + ER(1,i,tt,gen)*
+ - (FL(1,i,tt,gen)*(2*xd00 + (xd1 + xd11 + 2*xd12 + xd13 + xd2 + \
+xd22 + xd23 + xd3 + xd33)*Mf(tt,gen)**2) + \
+xd13*FR(1,i,tt,gen)*Mf(tt,gen)*MNeu(1)) +
+ - 2*(xd0 + xd1 + xd13 + xd2 + xd23 + \
+xd3)*(ER(1,i,tt,gen)*FL(1,i,tt,gen) + \
+ELc(1,i,tt,gen)*FR(1,i,tt,gen))*pbp2(tt,gen)))/(16.*pi) -
+ - (Alfas*SType*(-(ER(1,i,tt,gen)*(FR(1,i,tt,gen)*(8*xd00 + (xd1 + xd11 \
++ 2*xd12 + 2*xd13 + xd2 + xd22 + 2*xd23 + xd3 + xd33)*Mf(tt,gen)**2) +
+ - 2*xd13*FL(1,i,tt,gen)*Mf(tt,gen)*MNeu(1))) - ELc(1,i,tt,gen)*
+ - (FL(1,i,tt,gen)*(8*xd00 + (xd1 + xd11 + 2*xd12 + 2*xd13 + xd2 + \
+xd22 + 2*xd23 + xd3 + xd33)*Mf(tt,gen)**2) + \
+2*xd13*FR(1,i,tt,gen)*Mf(tt,gen)*MNeu(1)) -
+ - 2*(xd0 + xd1 + xd13 + xd2 + xd23 + \
+xd3)*(ELc(1,i,tt,gen)*FL(1,i,tt,gen) + \
+ER(1,i,tt,gen)*FR(1,i,tt,gen))*pbp2(tt,gen)))/(16.*pi)\
+\>", "Output",
+ CellChangeTimes->{3.6255614636656227`*^9, 3.62556266969569*^9,
+ 3.6255713678085947`*^9, 3.6259146810537*^9, 3.653044776077734*^9,
+ 3.653044976673811*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Box B4", "Section",
+ CellChangeTimes->{{3.625380024487172*^9, 3.625380027755267*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Subsection",
+ CellChangeTimes->{{3.625986580338911*^9, 3.6259865814036913`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ubar", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p2", ",", "m2"}], "]"}]}], ";", " ",
+ RowBox[{"v", " ", "=", " ",
+ RowBox[{"SpinorV", "[",
+ RowBox[{"p1", ",", "m1"}], "]"}]}], ";",
+ RowBox[{"vbar", " ", "=", " ",
+ RowBox[{"SpinorVBar", "[",
+ RowBox[{"pa", ",", "ma"}], "]"}]}], ";", " ",
+ RowBox[{"u", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pb", ",", " ", "mb"}], "]"}]}], ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain1", " ", "=", " ",
+ RowBox[{"ubar", ".", "Drei", ".", "mG", ".", "Vier", ".", "u"}]}]], "Input",\
+
+ CellChangeTimes->{{3.6259880944924707`*^9, 3.62598809584031*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ ")"}], ".", "mG", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988099391411*^9, 3.625989813696752*^9,
+ 3.626068029997196*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain2", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"DiracSlash", "[", "pa", "]"}]}], " ", "+", " ",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], "+", "mq"}], ")"}], ".", "Zwei",
+ ".", "v"}]}]], "Input",
+ CellChangeTimes->{{3.6259881365196753`*^9, 3.6259881476297817`*^9}, {
+ 3.625988216950316*^9, 3.62598824242944*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], "-",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.625988227384362*^9, 3.625988243044595*^9},
+ 3.6259898144168453`*^9, 3.626068030776966*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain3", " ", "=", " ",
+ RowBox[{"ubar", ".", "Drei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Vier", ".",
+ "u"}]}]], "Input",
+ CellChangeTimes->{{3.625988121145834*^9, 3.6259881218290243`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988124678073*^9, 3.6259898150381737`*^9,
+ 3.626068031349633*^9}]
+}, Open ]],
+
+Cell["\<\
+Minus signs in chain4 and chain5 are due to -q in fermion propagator.\
+\>", "Text",
+ CellChangeTimes->{3.625988593094748*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain4", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}]}], ")"}], ".", "Zwei", ".",
+ "v"}]}]], "Input",
+ CellChangeTimes->{{3.6259883228820457`*^9, 3.625988338287022*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"-",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988342631958*^9, 3.625989816867117*^9,
+ 3.626068033739518*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain5", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}]}], ")"}], ".", "Zwei", ".",
+ "v"}]}]], "Input",
+ CellChangeTimes->{{3.6259883487925997`*^9, 3.625988350380797*^9}, {
+ 3.625989809697242*^9, 3.625989809887995*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"-",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988352773715*^9, 3.6259898176049137`*^9,
+ 3.626068034509392*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Codeready", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",",
+ RowBox[{"mG", "\[Rule]", "MGl"}], ",", " ",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g2L", " ", "\[Rule]",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g3L", "\[Rule]",
+ RowBox[{"JL", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g3R", "\[Rule]",
+ RowBox[{"JR", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g4R", "\[Rule]",
+ RowBox[{"IR", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g4L", " ", "\[Rule]",
+ RowBox[{"IL", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.625988687960578*^9, 3.625988721019565*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "(", "1", ")"}]}], ",",
+ RowBox[{"mG", "\[Rule]", "MGl"}], ",",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2L", "\[Rule]",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g3L", "\[Rule]",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g3R", "\[Rule]",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g4R", "\[Rule]",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g4L", "\[Rule]",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988729100717*^9, 3.625989825449904*^9,
+ 3.62606803557852*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drho", "=", " ",
+ RowBox[{
+ RowBox[{"xd1", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd2", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd3", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", " ", "\[Rho]"}], "]"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.625988622152185*^9, 3.62598864237996*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd3", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"xd1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"xd2", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988625875669*^9, 3.6259894862073174`*^9,
+ 3.625989826368519*^9, 3.626068036372851*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drhosigma", "=", " ",
+ RowBox[{
+ RowBox[{"xd00", " ",
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd33", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Sigma]"}], "]"}]}], "+", " ",
+ RowBox[{"xd12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+",
+ " ", "\[IndentingNewLine]",
+ RowBox[{"xd13",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ",
+ "+", " ", "\[IndentingNewLine]",
+ RowBox[{"xd23",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Rho]"}], "]"}]}]}],
+ ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.625988646004121*^9, 3.6259886571680317`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+",
+ RowBox[{"xd23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd33", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd22", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988659253475*^9, 3.6259898279966497`*^9,
+ 3.626068037058015*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["D0 Terms", "Subsection",
+ CellChangeTimes->{3.62546581705402*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD0", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", " ",
+ RowBox[{
+ RowBox[{"xd0", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"chain1", ".", "chain2"}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "murule"}], "/.", "massrules"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ FractionBox[
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.62598875903086*^9, 3.626068210151216*^9}]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD0", " ", "=", " ",
+ RowBox[{"StartD0", "/.", "SortoutLorentzStructures4"}]}]], "Input",
+ CellChangeTimes->{{3.625989081654478*^9, 3.625989081720195*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259887720530663`*^9, 3.625988963192642*^9,
+ 3.6259890830025463`*^9, 3.626068210479266*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho] Terms", "Subsection",
+ CellChangeTimes->{3.6254658256161327`*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", " ",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain2"}], " ", ")"}]}], " ", "+", " ",
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain1", ".", "chain4"}], ")"}]}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625989322417708*^9, 3.625989497477331*^9,
+ 3.6259898409764214`*^9, 3.626068229513276*^9}]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]", "]"}], "/.",
+ "SortoutLorentzStructures4"}]}]], "Input",
+ CellChangeTimes->{{3.625989332033409*^9, 3.625989332084134*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.62598933913682*^9, 3.625989504362534*^9,
+ 3.625989752049004*^9, 3.625989845592903*^9, 3.62606823374788*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho]\[Sigma] Terms", "Subsection",
+ CellChangeTimes->{3.625465835668853*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Drhosigma",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain5"}], " ", ")"}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259957917480392`*^9, 3.626068243912155*^9}]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]\[Sigma]", "]"}], "/.",
+ "murule"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ TagBox[
+ PanelBox[GridBox[{
+ {
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
+ TraditionalForm],
+ ImageSizeCache->{332., {2., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None]},
+ {
+ ItemBox[
+ TagBox[
+ RowBox[{
+ RowBox[{"\[LeftSkeleton]", "392", "\[RightSkeleton]"}], "+",
+ FractionBox[
+ RowBox[{"g1L", " ",
+ RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}], " ",
+ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}],
+ Short[#, 5]& ],
+ Background->GrayLevel[1],
+ BaseStyle->{Deployed -> False},
+ Frame->True,
+ FrameStyle->GrayLevel[0, 0.2],
+ StripOnInput->False]},
+ {
+ RowBox[{
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ TraditionalForm],
+ ImageSizeCache->{57., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 213, 23762809102052007478, 5/2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"], "\[ThinSpace]",
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ TraditionalForm],
+ ImageSizeCache->{63., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 213, 23762809102052007478, 5 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"], "\[ThinSpace]",
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ TraditionalForm],
+ ImageSizeCache->{46., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 213, 23762809102052007478, Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"], "\[ThinSpace]",
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ TraditionalForm],
+ ImageSizeCache->{82., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+ ButtonFunction:>FrontEndExecute[{
+ FrontEnd`SetOptions[
+ FrontEnd`$FrontEnd,
+ FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}],
+ FrontEnd`FrontEndToken["PreferencesDialog"]}],
+ Evaluator->None,
+ Method->"Preemptive"]}]}
+ },
+ 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.2]}, "RowsIndexed" -> {}}],
+ DefaultBaseStyle->{},
+ FrameMargins->5],
+ Deploy,
+ DefaultBaseStyle->{Deployed -> True}],
+ Out[213]], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625995816582509*^9, 3.6260682500609922`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{"%", "/.", "SortoutLorentzStructures4"}]}]], "Input",
+ CellChangeTimes->{{3.625995819419116*^9, 3.625995820070519*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "+",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625995821307508*^9, 3.62606825042342*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Final result", "Subsection",
+ CellChangeTimes->{3.6254658440803432`*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FinalB4", " ", "=", " ",
+ RowBox[{
+ "FinalD0", " ", "+", " ", "FinalD\[Rho]", " ", "+", " ",
+ "FinalD\[Rho]\[Sigma]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625996053482627*^9, 3.6259960535662394`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "FinalB4", "]"}]], "Input",
+ CellChangeTimes->{{3.6259960655497303`*^9, 3.625996065683979*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "+",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "-",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g4R", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}]}], ")"}]}]}], ")"}]}],
+ "-",
+ RowBox[{"g2L", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "-",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g4L", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "+",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}],
+ "-",
+ RowBox[{"g2R", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625996067072982*^9, 3.62606826138727*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"AType", ",", "SType"}], "}"}]}], "]"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00"}]}],
+ "+",
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00"}], "+",
+
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00"}], "-",
+
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00"}]}],
+ ")"}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ "+",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "+",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625996076736911*^9, 3.626068263972814*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "Codeready"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["pi", "2"]}]],
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"xd00", " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], "+",
+ RowBox[{"xd00", " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{"xd00", " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"xd00", " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["pi", "2"]}]],
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ")"}],
+ " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625996087116222*^9, 3.626068264894517*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input"],
+
+Cell["\<\
+ (AType*(-(xd00*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)\
+) + xd00*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen) +
+ - xd00*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen) - \
+xd00*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)))/(64.*pi**2) + \
+
+ - (SType*(-(ELc(1,j,tt,gen)*FL(1,i,tt,gen)*Mf(tt,gen)*(JR(i,tt,gen)*(-(\
+MGl*xd0*IR(j,tt,gen)) + (xd1 + xd2 + xd3)*IL(j,tt,gen)*Mf(tt,gen)) +
+ - JL(i,tt,gen)*(-(MGl*xd0*IL(j,tt,gen)) + (xd1 + xd2 + \
+xd3)*IR(j,tt,gen)*Mf(tt,gen)))) -
+ - \
+ER(1,j,tt,gen)*FR(1,i,tt,gen)*Mf(tt,gen)*(JR(i,tt,gen)*(-(MGl*xd0*IR(j,tt,gen)\
+) + (xd1 + xd2 + xd3)*IL(j,tt,gen)*Mf(tt,gen)) +
+ - JL(i,tt,gen)*(-(MGl*xd0*IL(j,tt,gen)) + (xd1 + xd2 + \
+xd3)*IR(j,tt,gen)*Mf(tt,gen))) + MGl*(xd0 + \
+xd3)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JL(i,tt,gen)*MNeu(1) +
+ - MGl*(xd0 + \
+xd3)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JL(i,tt,gen)*MNeu(1) + \
+MGl*(xd0 + \
+xd3)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JR(i,tt,gen)*MNeu(1) +
+ - MGl*(xd0 + \
+xd3)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JR(i,tt,gen)*MNeu(1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)*Mf(tt,gen)*\
+MNeu(1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)*Mf(tt,gen)*\
+MNeu(1)))/(64.*pi**2)\
+\>", "Output",
+ CellChangeTimes->{3.625996094604669*^9, 3.626068265826788*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]]
+}, Open ]]
+},
+CellGrouping->Automatic,
+WindowSize->{1672, 944},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
+ShowSelection->True,
+FrontEndVersion->"10.1 for Linux x86 (64-bit) (March 23, 2015)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[CellGroupData[{
+Cell[579, 22, 208, 3, 93, "Title"],
+Cell[790, 27, 237, 5, 34, "Text"],
+Cell[CellGroupData[{
+Cell[1052, 36, 159, 2, 65, "Section"],
+Cell[CellGroupData[{
+Cell[1236, 42, 101, 1, 44, "Subsection"],
+Cell[CellGroupData[{
+Cell[1362, 47, 168, 3, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1555, 54, 579, 12, 23, "Print"],
+Cell[2137, 68, 664, 14, 23, "Print"],
+Cell[2804, 84, 301, 5, 23, "Print"],
+Cell[3108, 91, 285, 4, 23, "Print"]
+}, Open ]]
+}, Open ]],
+Cell[3420, 99, 253, 7, 20, "Text"],
+Cell[3676, 108, 723, 23, 20, "Text"],
+Cell[CellGroupData[{
+Cell[4424, 135, 344, 8, 32, "Input"],
+Cell[4771, 145, 460, 10, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[5268, 160, 344, 8, 32, "Input"],
+Cell[5615, 170, 466, 11, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[6118, 186, 144, 4, 32, "Input"],
+Cell[6265, 192, 677, 18, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[6979, 215, 149, 4, 32, "Input"],
+Cell[7131, 221, 677, 18, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[7845, 244, 210, 5, 32, "Input"],
+Cell[8058, 251, 509, 15, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[8604, 271, 212, 5, 32, "Input"],
+Cell[8819, 278, 504, 15, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[9360, 298, 1607, 41, 55, "Input"],
+Cell[10970, 341, 1176, 32, 37, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[12183, 378, 219, 5, 32, "Input"],
+Cell[12405, 385, 351, 9, 33, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[12805, 400, 148, 2, 44, "Subsection"],
+Cell[CellGroupData[{
+Cell[12978, 406, 98646, 2691, 2783, "Input"],
+Cell[111627, 3099, 95287, 3057, 888, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[206951, 6161, 1346, 37, 77, "Input"],
+Cell[208300, 6200, 91176, 2886, 797, "Output"]
+}, Open ]],
+Cell[299491, 9089, 343, 6, 33, "Text"],
+Cell[CellGroupData[{
+Cell[299859, 9099, 1518, 36, 55, "Input"],
+Cell[301380, 9137, 812, 24, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[302229, 9166, 47070, 1378, 1749, "Input"],
+Cell[349302, 10546, 43750, 1342, 428, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[393089, 11893, 639, 17, 32, "Input"],
+Cell[393731, 11912, 46066, 1444, 451, "Output"]
+}, Open ]]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[439858, 13363, 263, 3, 65, "Section"],
+Cell[CellGroupData[{
+Cell[440146, 13370, 314, 6, 30, "Input"],
+Cell[440463, 13378, 568, 17, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[441068, 13400, 289, 7, 30, "Input"],
+Cell[441360, 13409, 425, 15, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[441822, 13429, 226, 5, 30, "Input"],
+Cell[442051, 13436, 352, 10, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[442440, 13451, 258, 5, 30, "Input"],
+Cell[442701, 13458, 607, 20, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[443345, 13483, 296, 6, 30, "Input"],
+Cell[443644, 13491, 368, 13, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[444049, 13509, 901, 28, 30, "Input"],
+Cell[444953, 13539, 942, 31, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[445932, 13575, 145, 2, 30, "Input"],
+Cell[446080, 13579, 994, 32, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[447111, 13616, 185, 3, 30, "Input"],
+Cell[447299, 13621, 172, 3, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[447508, 13629, 501, 11, 30, "Input"],
+Cell[448012, 13642, 396, 11, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[448445, 13658, 357, 6, 30, "Input"],
+Cell[448805, 13666, 439, 12, 31, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[449293, 13684, 93, 1, 51, "Section"],
+Cell[CellGroupData[{
+Cell[449411, 13689, 92, 1, 45, "Subsection"],
+Cell[449506, 13692, 481, 13, 32, "Input"],
+Cell[CellGroupData[{
+Cell[450012, 13709, 475, 10, 32, "Input"],
+Cell[450490, 13721, 1507, 41, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[452034, 13767, 650, 12, 32, "Input"],
+Cell[452687, 13781, 1608, 43, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[454332, 13829, 331, 7, 32, "Input"],
+Cell[454666, 13838, 1247, 37, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[455950, 13880, 278, 5, 32, "Input"],
+Cell[456231, 13887, 1215, 36, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[457483, 13928, 278, 5, 32, "Input"],
+Cell[457764, 13935, 1190, 35, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[458991, 13975, 1078, 25, 32, "Input"],
+Cell[460072, 14002, 1189, 28, 33, "Output"]
+}, Open ]],
+Cell[461276, 14033, 463, 13, 32, "Input"],
+Cell[CellGroupData[{
+Cell[461764, 14050, 2390, 67, 99, "Input"],
+Cell[464157, 14119, 4203, 164, 37, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[468409, 14289, 145, 2, 44, "Subsection"],
+Cell[468557, 14293, 199, 4, 33, "Text"],
+Cell[CellGroupData[{
+Cell[468781, 14301, 1270, 25, 32, "Input"],
+Cell[470054, 14328, 24620, 749, 1192, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[494711, 15082, 243, 4, 32, "Input"],
+Cell[494957, 15088, 2503, 53, 70, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[497497, 15146, 263, 5, 32, "Input"],
+Cell[497763, 15153, 1902, 51, 70, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[499714, 15210, 201, 3, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[499940, 15217, 852, 22, 32, "Input"],
+Cell[500795, 15241, 100631, 3116, 2568, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[601463, 18362, 277, 6, 32, "Input"],
+Cell[601743, 18370, 137992, 4234, 4402, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[739772, 22609, 239, 4, 32, "Input"],
+Cell[740014, 22615, 13459, 451, 581, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[753510, 23071, 369, 7, 32, "Input"],
+Cell[753882, 23080, 15446, 445, 730, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[769377, 23531, 259, 3, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[769661, 23538, 608, 16, 32, "Input"],
+Cell[770272, 23556, 211315, 6794, 4308, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[981624, 30355, 281, 6, 32, "Input"],
+Cell[981908, 30363, 11630, 284, 110, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[993575, 30652, 141, 2, 32, "Input"],
+Cell[993719, 30656, 18786, 560, 999, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1012542, 31221, 335, 6, 32, "Input"],
+Cell[1012880, 31229, 24139, 695, 1192, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1037068, 31930, 102, 1, 44, "Subsection"],
+Cell[1037173, 31933, 426, 9, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1037624, 31946, 181, 3, 32, "Input"],
+Cell[1037808, 31951, 4291, 105, 136, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1042136, 32061, 208, 5, 32, "Input"],
+Cell[1042347, 32068, 4299, 109, 162, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1046683, 32182, 226, 4, 32, "Input"],
+Cell[1046912, 32188, 6922, 171, 218, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1053871, 32364, 130, 2, 32, "Input"],
+Cell[1054004, 32368, 1482, 25, 172, "Output"]
+}, Open ]]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1055547, 32400, 93, 1, 65, "Section"],
+Cell[CellGroupData[{
+Cell[1055665, 32405, 95, 1, 45, "Subsection"],
+Cell[1055763, 32408, 485, 13, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1056273, 32425, 200, 4, 32, "Input"],
+Cell[1056476, 32431, 1100, 35, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1057613, 32471, 354, 8, 32, "Input"],
+Cell[1057970, 32481, 1430, 47, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1059437, 32533, 246, 5, 32, "Input"],
+Cell[1059686, 32540, 1213, 40, 58, "Output"]
+}, Open ]],
+Cell[1060914, 32583, 207, 4, 33, "Text"],
+Cell[CellGroupData[{
+Cell[1061146, 32591, 289, 7, 32, "Input"],
+Cell[1061438, 32600, 1296, 42, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1062771, 32647, 291, 7, 32, "Input"],
+Cell[1063065, 32656, 1293, 42, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1064395, 32703, 1546, 37, 55, "Input"],
+Cell[1065944, 32742, 1456, 37, 55, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1067437, 32784, 573, 17, 32, "Input"],
+Cell[1068013, 32803, 830, 32, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1068880, 32840, 2915, 89, 99, "Input"],
+Cell[1071798, 32931, 4407, 172, 37, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1076254, 33109, 96, 1, 44, "Subsection"],
+Cell[CellGroupData[{
+Cell[1076375, 33114, 499, 14, 32, "Input"],
+Cell[1076877, 33130, 73592, 2065, 2206, "Output"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[1150506, 35200, 238, 4, 26, "Input"],
+Cell[1150747, 35206, 17187, 452, 816, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1167983, 35664, 103, 1, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[1168111, 35669, 664, 19, 32, "Input"],
+Cell[1168778, 35690, 176541, 5363, 5238, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1345356, 41058, 337, 7, 32, "Input"],
+Cell[1345696, 41067, 6005, 162, 333, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1351750, 41235, 111, 1, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[1351886, 41240, 535, 15, 32, "Input"],
+Cell[1352424, 41257, 168463, 5125, 4368, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1520924, 46387, 257, 5, 32, "Input"],
+Cell[1521184, 46394, 220891, 6726, 6984, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1742112, 53125, 245, 4, 32, "Input"],
+Cell[1742360, 53131, 3315, 96, 166, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[1745724, 53233, 102, 1, 36, "Subsection"],
+Cell[1745829, 53236, 248, 6, 30, "Input"],
+Cell[CellGroupData[{
+Cell[1746102, 53246, 133, 2, 30, "Input"],
+Cell[1746238, 53250, 4681, 119, 131, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1750956, 53374, 140, 4, 30, "Input"],
+Cell[1751099, 53380, 3920, 102, 111, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1755056, 53487, 58, 1, 30, "Input"],
+Cell[1755117, 53490, 10200, 252, 199, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1765354, 53747, 130, 2, 30, "Input"],
+Cell[1765487, 53751, 1848, 36, 219, "Output"]
+}, Open ]]
+}, Closed]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[1767396, 53794, 144, 2, 51, "Section"],
+Cell[CellGroupData[{
+Cell[1767565, 53800, 93, 1, 45, "Subsection"],
+Cell[1767661, 53803, 602, 15, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1768288, 53822, 328, 8, 32, "Input"],
+Cell[1768619, 53832, 1150, 36, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1769806, 53873, 325, 7, 32, "Input"],
+Cell[1770134, 53882, 1149, 36, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1771320, 53923, 284, 6, 32, "Input"],
+Cell[1771607, 53931, 1075, 34, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1772719, 53970, 278, 5, 32, "Input"],
+Cell[1773000, 53977, 1076, 34, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1774113, 54016, 280, 5, 32, "Input"],
+Cell[1774396, 54023, 1079, 34, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1775512, 54062, 981, 24, 32, "Input"],
+Cell[1776496, 54088, 1046, 26, 33, "Output"]
+}, Open ]],
+Cell[1777557, 54117, 578, 15, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1778160, 54136, 2457, 68, 99, "Input"],
+Cell[1780620, 54206, 4139, 163, 37, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1784808, 54375, 139, 2, 69, "Subsection"],
+Cell[CellGroupData[{
+Cell[1784972, 54381, 588, 16, 32, "Input"],
+Cell[1785563, 54399, 22586, 694, 1060, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1808186, 55098, 221, 3, 32, "Input"],
+Cell[1808410, 55103, 1293, 36, 70, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1809740, 55144, 166, 3, 32, "Input"],
+Cell[1809909, 55149, 1491, 44, 70, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1811449, 55199, 79, 1, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[1811553, 55204, 653, 18, 32, "Input"],
+Cell[1812209, 55224, 95780, 2919, 2568, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1908026, 58148, 141, 2, 32, "Input"],
+Cell[1908170, 58152, 129576, 3889, 4345, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2037783, 62046, 142, 2, 32, "Input"],
+Cell[2037928, 62050, 12551, 438, 581, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2050516, 62493, 131, 3, 32, "Input"],
+Cell[2050650, 62498, 15027, 438, 730, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2065726, 62942, 85, 1, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[2065836, 62947, 470, 14, 32, "Input"],
+Cell[2066309, 62963, 203319, 6470, 4306, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2269665, 69438, 185, 4, 32, "Input"],
+Cell[2269853, 69444, 10916, 270, 110, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2280806, 69719, 167, 3, 32, "Input"],
+Cell[2280976, 69724, 18248, 552, 1001, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2299261, 70281, 236, 5, 32, "Input"],
+Cell[2299500, 70288, 23838, 691, 1192, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2323387, 70985, 78, 1, 44, "Subsection"],
+Cell[2323468, 70988, 250, 6, 32, "Input"],
+Cell[CellGroupData[{
+Cell[2323743, 70998, 133, 2, 32, "Input"],
+Cell[2323879, 71002, 3971, 102, 136, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2327887, 71109, 140, 4, 32, "Input"],
+Cell[2328030, 71115, 3938, 104, 162, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2332005, 71224, 124, 2, 32, "Input"],
+Cell[2332132, 71228, 6584, 166, 218, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2338753, 71399, 130, 2, 32, "Input"],
+Cell[2338886, 71403, 1272, 22, 172, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2340219, 71432, 91, 1, 51, "Section"],
+Cell[CellGroupData[{
+Cell[2340335, 71437, 95, 1, 45, "Subsection"],
+Cell[2340433, 71440, 481, 13, 30, "Input"],
+Cell[CellGroupData[{
+Cell[2340939, 71457, 196, 4, 30, "Input"],
+Cell[2341138, 71463, 1079, 35, 49, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2342254, 71503, 422, 10, 30, "Input"],
+Cell[2342679, 71515, 1431, 47, 49, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2344147, 71567, 242, 5, 30, "Input"],
+Cell[2344392, 71574, 1191, 40, 49, "Output"]
+}, Open ]],
+Cell[2345598, 71617, 135, 3, 30, "Text"],
+Cell[CellGroupData[{
+Cell[2345758, 71624, 288, 7, 30, "Input"],
+Cell[2346049, 71633, 1243, 42, 49, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2347329, 71680, 339, 8, 30, "Input"],
+Cell[2347671, 71690, 1247, 42, 49, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2348955, 71737, 1443, 35, 50, "Input"],
+Cell[2350401, 71774, 1407, 37, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2351845, 71816, 543, 15, 30, "Input"],
+Cell[2352391, 71833, 781, 30, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2353209, 71868, 2752, 81, 88, "Input"],
+Cell[2355964, 71951, 4222, 166, 31, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2360235, 72123, 71, 1, 36, "Subsection"],
+Cell[CellGroupData[{
+Cell[2360331, 72128, 433, 13, 30, "Input"],
+Cell[2360767, 72143, 75309, 2137, 2206, "Output"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2436113, 74285, 185, 3, 24, "Input"],
+Cell[2436301, 74290, 17064, 450, 634, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2453414, 74746, 79, 1, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[2453518, 74751, 598, 18, 30, "Input"],
+Cell[2454119, 74771, 184193, 5686, 3139, "Output"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2638349, 80462, 240, 5, 24, "Input"],
+Cell[2638592, 80469, 5934, 161, 209, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2644575, 80636, 85, 1, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[2644685, 80641, 467, 14, 30, "Input"],
+Cell[2645155, 80657, 173630, 5348, 3053, "Output"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2818822, 86010, 117, 3, 24, "Input"],
+Cell[2818942, 86015, 9754, 257, 158, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2828733, 86277, 192, 3, 30, "Input"],
+Cell[2828928, 86282, 3290, 96, 127, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2832267, 86384, 78, 1, 36, "Subsection"],
+Cell[2832348, 86387, 250, 6, 32, "Input"],
+Cell[CellGroupData[{
+Cell[2832623, 86397, 135, 2, 32, "Input"],
+Cell[2832761, 86401, 4631, 118, 150, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2837429, 86524, 140, 4, 32, "Input"],
+Cell[2837572, 86530, 3897, 102, 157, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2841506, 86637, 58, 1, 30, "Input"],
+Cell[2841567, 86640, 10149, 251, 199, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2851753, 86896, 64, 1, 30, "Input"],
+Cell[2851820, 86899, 1821, 35, 219, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]]
+}, Open ]]
+}
+]
+*)
+
+(* End of internal cache information *)
Property changes on: branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Boxes.nb
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Index: branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Boxes2.nb
===================================================================
--- branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Boxes2.nb (revision 0)
+++ branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Boxes2.nb (revision 1082)
@@ -0,0 +1,76334 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 8.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 157, 7]
+NotebookDataLength[ 2531985, 76325]
+NotebookOptionsPosition[ 2514775, 75747]
+NotebookOutlinePosition[ 2515233, 75765]
+CellTagsIndexPosition[ 2515190, 75762]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+
+Cell[CellGroupData[{
+Cell["Boxes for Direct Detection", "Title",
+ CellChangeTimes->{{3.611995530016789*^9, 3.611995542946417*^9}, {
+ 3.611996022350602*^9, 3.611996033608444*^9}, {3.6249485963969707`*^9,
+ 3.62494859743382*^9}}],
+
+Cell[TextData[StyleBox["\t\t\tby Patrick Steppeler",
+ FontFamily->"Utopia",
+ FontSlant->"Italic"]], "Text",
+ CellChangeTimes->{{3.611996549419997*^9, 3.611996554187799*^9}, {
+ 3.611996607441195*^9, 3.611996609035804*^9}},
+ FontSize->16],
+
+Cell[CellGroupData[{
+
+Cell["Initialisation and Setup", "Section",
+ CellChangeTimes->{{3.624948616391615*^9, 3.6249486261789923`*^9}, {
+ 3.625305851547947*^9, 3.62530585362422*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["General Stuff", "Subsection",
+ CellChangeTimes->{{3.625471113155087*^9, 3.625471116207302*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Import", "[", "\"\<http://www.feyncalc.org/install.m\>\"",
+ "]"}]], "Input",
+ CellChangeTimes->{{3.624949838220881*^9, 3.624949838223098*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ RowBox[{"\<\"downloading \"\>",
+ "\[InvisibleSpace]", "\<\"http://www.feyncalc.org/download/fclatest.zip\"\
+\>", "\[InvisibleSpace]", "\<\" please wait \"\>"}],
+ SequenceForm[
+ "downloading ", "http://www.feyncalc.org/download/fclatest.zip",
+ " please wait "],
+ Editable->False], TraditionalForm]], "Print",
+ CellChangeTimes->{3.624949840670183*^9, 3.625290789693324*^9,
+ 3.6253790330542517`*^9, 3.625550992383037*^9, 3.625913330584725*^9,
+ 3.652673044226904*^9, 3.6530422401392117`*^9, 3.665826785281186*^9,
+ 3.665834040310828*^9, 3.665899344124235*^9}],
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ RowBox[{"\<\"Downloading done, installing FeynCalc to \"\>",
+ "\[InvisibleSpace]",
+ StyleBox["\<\"/home/NWZ/p_step04/.Mathematica/Applications\"\>",
+ StripOnInput->False,
+ FontWeight->"Bold"]}],
+ SequenceForm["Downloading done, installing FeynCalc to ",
+ Style[
+ "/home/NWZ/p_step04/.Mathematica/Applications", FontWeight -> "Bold"]],
+ Editable->False], TraditionalForm]], "Print",
+ CellChangeTimes->{3.624949840670183*^9, 3.625290789693324*^9,
+ 3.6253790330542517`*^9, 3.625550992383037*^9, 3.625913330584725*^9,
+ 3.652673044226904*^9, 3.6530422401392117`*^9, 3.665826785281186*^9,
+ 3.665834040310828*^9, 3.665899347908163*^9}],
+
+Cell[BoxData[
+ FormBox["\<\"installation of FeynCalc ready.\"\>", TraditionalForm]], "Print",\
+
+ CellChangeTimes->{3.624949840670183*^9, 3.625290789693324*^9,
+ 3.6253790330542517`*^9, 3.625550992383037*^9, 3.625913330584725*^9,
+ 3.652673044226904*^9, 3.6530422401392117`*^9, 3.665826785281186*^9,
+ 3.665834040310828*^9, 3.6658993708806553`*^9}],
+
+Cell[BoxData[
+ FormBox["\<\"loading FeynCalc \"\>", TraditionalForm]], "Print",
+ CellChangeTimes->{3.624949840670183*^9, 3.625290789693324*^9,
+ 3.6253790330542517`*^9, 3.625550992383037*^9, 3.625913330584725*^9,
+ 3.652673044226904*^9, 3.6530422401392117`*^9, 3.665826785281186*^9,
+ 3.665834040310828*^9, 3.665899370881486*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"PL", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{"1", " ", "-", " ",
+ RowBox[{"DiracMatrix", "[", "5", "]"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.6249506619632607`*^9, 3.6249506712046347`*^9}, {
+ 3.624958458274645*^9, 3.624958493491125*^9}, 3.624958627281206*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.62495067220084*^9, 3.624958494313743*^9,
+ 3.624958633548765*^9, 3.624961071228743*^9, 3.6252909163789463`*^9,
+ 3.625379084416277*^9, 3.625551036107328*^9, 3.6259134746937943`*^9,
+ 3.652673110511154*^9, 3.653042299304064*^9, 3.6658268227603207`*^9,
+ 3.665834073310293*^9, 3.665899378176628*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"PR", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{"1", " ", "+", " ",
+ RowBox[{"DiracMatrix", "[", "5", "]"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.624950673957417*^9, 3.6249506799336367`*^9}, {
+ 3.624958502314245*^9, 3.6249585043844213`*^9}, 3.624958629766765*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6249506806831284`*^9, 3.624958504916184*^9,
+ 3.624958631034934*^9, 3.624961071943959*^9, 3.6252909188080606`*^9,
+ 3.625379084573327*^9, 3.6255510362787313`*^9, 3.6259134747435703`*^9,
+ 3.652673113224387*^9, 3.653042300197735*^9, 3.665826822863225*^9,
+ 3.6658340734050713`*^9, 3.665899378318841*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Eins", " ", "=",
+ RowBox[{
+ RowBox[{"g1R", "*", "PR"}], " ", "+", " ",
+ RowBox[{"g1L", "*", "PL"}]}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624953133538807*^9, 3.624958510721531*^9, 3.624958635751093*^9, {
+ 3.624961052632565*^9, 3.6249610725981693`*^9}, 3.625290919953179*^9,
+ 3.6253790846979227`*^9, 3.625551036474144*^9, 3.625913474787182*^9,
+ 3.652673114116001*^9, 3.653042300848411*^9, 3.665826822990046*^9,
+ 3.665834073533824*^9, 3.665899378468225*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Zwei", " ", "=", " ",
+ RowBox[{
+ RowBox[{"g2R", "*", "PR"}], " ", "+", " ",
+ RowBox[{"g2L", "*", "PL"}]}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6249531343160667`*^9, 3.624958512108183*^9, 3.624958637100752*^9, {
+ 3.624961053509624*^9, 3.624961073293374*^9}, 3.62529092065646*^9,
+ 3.62537908485401*^9, 3.625551036609321*^9, 3.625913474915381*^9,
+ 3.6526731148892803`*^9, 3.6530423017916327`*^9, 3.665826823103291*^9,
+ 3.665834073603841*^9, 3.6658993786152*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drei", " ", "=",
+ RowBox[{
+ RowBox[{"g3R", "*", "PR"}], " ", "+", " ",
+ RowBox[{"g3L", "*", "PL"}]}]}]], "Input",
+ CellChangeTimes->{{3.625571571985531*^9, 3.625571580666276*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255715828703136`*^9, 3.6259134749621687`*^9,
+ 3.652673115722702*^9, 3.653042302622837*^9, 3.665826823200799*^9,
+ 3.665834073675556*^9, 3.665899378761362*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Vier", " ", "=",
+ RowBox[{
+ RowBox[{"g4R", "*", "PR"}], " ", "+", " ",
+ RowBox[{"g4L", "*", "PL"}]}]}]], "Input",
+ CellChangeTimes->{{3.6255715892577667`*^9, 3.625571593007834*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625571593967927*^9, 3.625913475101111*^9,
+ 3.652673116566136*^9, 3.653042303311935*^9, 3.66582682332618*^9,
+ 3.66583407374232*^9, 3.665899378924548*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"massrules", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mb", "\[Rule]", "mq"}], ",",
+ RowBox[{"m2", "\[Rule]", "mq"}], ",",
+ RowBox[{"ma", "\[Rule]", "mNeu"}], ",",
+ RowBox[{"m1", "\[Rule]", "mNeu"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"mq", "^", "2"}]}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "pb", "]"}], ",",
+ RowBox[{"Momentum", "[", "pb", "]"}]}], "]"}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"mq", "^", "2"}]}], " ", ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "pb", "]"}]}], "]"}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"pbp2", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "pq", "]"}], ",",
+ RowBox[{"Momentum", "[", "pq", "]"}]}], "]"}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"mq", "^", "2"}]}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.625313362118918*^9, 3.625313397108218*^9}, {
+ 3.6253134875531282`*^9, 3.625313510551927*^9}, {3.62531362966792*^9,
+ 3.625313655780013*^9}, {3.625313870784391*^9, 3.6253139226589746`*^9}, {
+ 3.6253139572108307`*^9, 3.6253139722145767`*^9}, {3.625314059473489*^9,
+ 3.625314065577962*^9}, {3.6254659365534678`*^9, 3.625465971334318*^9}, {
+ 3.625552620178563*^9, 3.6255526297691927`*^9}, {3.665835193983666*^9,
+ 3.665835208393321*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mb", "\[Rule]", "mq"}], ",",
+ RowBox[{"m2", "\[Rule]", "mq"}], ",",
+ RowBox[{"ma", "\[Rule]", "mNeu"}], ",",
+ RowBox[{"m1", "\[Rule]", "mNeu"}], ",",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], "\[Rule]",
+ SuperscriptBox["mq", "2"]}], ",",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm], "2"], "\[Rule]",
+ SuperscriptBox["mq", "2"]}], ",",
+ RowBox[{
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], "\[Rule]",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], "\[Rule]",
+ SuperscriptBox["mq", "2"]}]}], "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6249613635808*^9, 3.624964066851183*^9,
+ 3.6252909220390778`*^9, 3.625313398792368*^9, 3.625313514400381*^9,
+ 3.625313657516219*^9, 3.625313899659498*^9, 3.625313973742626*^9,
+ 3.6253140679031887`*^9, 3.6253790853982067`*^9, 3.62546597416008*^9,
+ 3.625551037259948*^9, 3.625552634127153*^9, 3.625913479518639*^9,
+ 3.6526731174855337`*^9, 3.653042306191627*^9, 3.6658268319420853`*^9,
+ 3.665834073813116*^9, 3.66583521051722*^9, 3.66589937906549*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"murule", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"$MU", "[", "1", "]"}], "\[Rule]", "\[Mu]"}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.624961320691147*^9, 3.624961351157239*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"$MU", "\[InvisibleApplication]",
+ RowBox[{"(", "1", ")"}]}], "\[Rule]", "\[Mu]"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6253909241957617`*^9, 3.625551037444045*^9,
+ 3.625913480623671*^9, 3.652673118267366*^9, 3.6530423071700287`*^9,
+ 3.6658268352908*^9, 3.665834073880426*^9, 3.66589937920754*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"prule", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"pa", " ", "\[Rule]", " ", "pNeu"}], ",", " ",
+ RowBox[{"p1", " ", "\[Rule]", " ", "pNeu"}], ",", " ",
+ RowBox[{"pb", " ", "\[Rule]", " ", "pq"}], ",", " ",
+ RowBox[{"p2", " ", "\[Rule]", " ", "pq"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.6658340489218063`*^9, 3.6658340851240053`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"pa", "\[Rule]", "pNeu"}], ",",
+ RowBox[{"p1", "\[Rule]", "pNeu"}], ",",
+ RowBox[{"pb", "\[Rule]", "pq"}], ",",
+ RowBox[{"p2", "\[Rule]", "pq"}]}], "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.665834086327523*^9, 3.6658993793530912`*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Fierz Stuff", "Subsection",
+ CellChangeTimes->{{3.6254711243772*^9, 3.6254711255898037`*^9}, {
+ 3.653044930040312*^9, 3.653044934944113*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"SortoutLorentzStructures", "=", " ",
+ RowBox[{"{", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "0"}], "-", "1"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]", " ", "1"}], "-", "2"}], " ", "*)"}],
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ " \
+ \
+ \
+ \
+ \
+ \
+ \
+ \
+ \
+ ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]"}], " ", "&"}], " ",
+ RowBox[{"\[Rho]", "/", "\[Sigma]"}], " ", "2"}], "-", "2"}], ",",
+ " ",
+ RowBox[{"Tensor", "?"}], ",", " ",
+ RowBox[{"Behandlung", " ", "unklar"}]}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"TTypeWrongOrder", " ", "+", " ",
+ RowBox[{"4", "STypeWrongOrder"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", " ",
+ RowBox[{"TTypeWrongOrder", " ", "+", " ",
+ RowBox[{"4", "STypeWrongOrder"}]}]}], ",", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]"}], " ", "&"}], " ",
+ RowBox[{"\[Rho]", "/", "\[Sigma]"}], " ", "2"}], "-", "3"}], " ",
+ "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ " \
+ \
+ \
+ \
+ ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]"}], " ", "&"}], " ",
+ RowBox[{"\[Rho]", "/", "\[Sigma]"}], " ", "3"}], "-", "3"}], ",",
+ " ",
+ RowBox[{"Pseudotensor", "?"}], ",", " ",
+ RowBox[{"Behandlung", " ", "unklar"}]}], "*)"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"TTypeWrongOrder", " ", "+", " ",
+ RowBox[{"4", "PTypeWrongOrder"}]}]}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]",
+ RowBox[{"TTypeWrongOrder", " ", "+", " ",
+ RowBox[{"4", "PTypeWrongOrder"}]}]}], ",", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "STypeWrongOrder"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{"Relevante", " ", "Koeffizienten"}], " ", "*)"}],
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "PTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "VTypeWrongOrder"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["p1",
+ TraditionalForm]}], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-",
+ FormBox["pa",
+ TraditionalForm]}], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "ATypeWrongOrder"}]}], "}"}]}],
+ "\[IndentingNewLine]"}]], "Input",
+ CellChangeTimes->{{3.6249616422427588`*^9, 3.624961660834037*^9}, {
+ 3.624961703538155*^9, 3.6249618990470057`*^9}, {3.6249620311703587`*^9,
+ 3.624962031698278*^9}, {3.624962136525158*^9, 3.624962136902089*^9}, {
+ 3.624963024206049*^9, 3.624963040241394*^9}, {3.624963126399502*^9,
+ 3.624963126649659*^9}, {3.624963317010666*^9, 3.6249633761675158`*^9}, {
+ 3.624964170882091*^9, 3.6249641773222427`*^9}, {3.624964422037314*^9,
+ 3.624964480418743*^9}, {3.6249645622185593`*^9, 3.624964633859416*^9}, {
+ 3.624964768077133*^9, 3.62496483590483*^9}, {3.624964886400963*^9,
+ 3.624964928356945*^9}, {3.6249651379413767`*^9, 3.6249651826352987`*^9}, {
+ 3.624965246906554*^9, 3.6249652675467587`*^9}, {3.624965396620214*^9,
+ 3.6249654067753983`*^9}, {3.6249654546029663`*^9, 3.62496547027435*^9}, {
+ 3.624965736448337*^9, 3.6249657394787693`*^9}, 3.6253069661174498`*^9, {
+ 3.6253070229663763`*^9, 3.625307095265367*^9}, 3.6253071298019733`*^9, {
+ 3.625307232376132*^9, 3.625307235471497*^9}, {3.625307492742587*^9,
+ 3.625307541636441*^9}, {3.625307642231162*^9, 3.62530773980449*^9}, {
+ 3.6253078396792727`*^9, 3.6253078868075438`*^9}, {3.625307986275688*^9,
+ 3.625308037465704*^9}, {3.625308488107974*^9, 3.62530850551009*^9}, {
+ 3.6253086419757843`*^9, 3.6253086617799463`*^9}, {3.62530883824146*^9,
+ 3.625308901099552*^9}, {3.625309029181181*^9, 3.625309169146133*^9}, {
+ 3.625309394285903*^9, 3.625309410034665*^9}, {3.6253095150475082`*^9,
+ 3.625309545226869*^9}, {3.62530964561308*^9, 3.625309652671506*^9}, {
+ 3.625309770494775*^9, 3.625309783517674*^9}, {3.625309923912201*^9,
+ 3.6253099325400267`*^9}, {3.625310274352014*^9, 3.625310341316474*^9}, {
+ 3.625310819800012*^9, 3.6253108272963142`*^9}, {3.6253109178097477`*^9,
+ 3.6253109527723*^9}, {3.6253111334758167`*^9, 3.6253111583919067`*^9}, {
+ 3.625311298692445*^9, 3.6253113502817793`*^9}, {3.62531142367202*^9,
+ 3.625311424469328*^9}, {3.6253114965228777`*^9, 3.625311514955756*^9}, {
+ 3.6253115935759373`*^9, 3.6253116516688957`*^9}, {3.625311742312037*^9,
+ 3.6253117544317513`*^9}, 3.625311824941854*^9, {3.625311935839171*^9,
+ 3.625311944904298*^9}, {3.625312004316777*^9, 3.62531207113461*^9}, {
+ 3.625312132805612*^9, 3.625312193509323*^9}, {3.625312240524081*^9,
+ 3.625312310366046*^9}, {3.6253123605207*^9, 3.625312361216489*^9}, {
+ 3.625312444867196*^9, 3.625312797546081*^9}, {3.625312843165194*^9,
+ 3.6253128488506327`*^9}, {3.6253129839799843`*^9, 3.625313043910171*^9},
+ 3.625313188391687*^9, {3.625381415329549*^9, 3.625381479535877*^9}, {
+ 3.625381536497384*^9, 3.625381585486538*^9}, {3.6253816287732677`*^9,
+ 3.625381683771635*^9}, {3.6253817261999207`*^9, 3.6253817275196743`*^9}, {
+ 3.625381768157947*^9, 3.6253820011169157`*^9}, {3.625382076953002*^9,
+ 3.625382161675703*^9}, {3.6253822328014812`*^9, 3.625382294551732*^9}, {
+ 3.625382352497176*^9, 3.6253824544317713`*^9}, {3.625382637004794*^9,
+ 3.625382763128593*^9}, {3.6253830219399137`*^9, 3.6253831073679113`*^9}, {
+ 3.625383184237794*^9, 3.625383191041583*^9}, {3.6253832305291643`*^9,
+ 3.625383277234973*^9}, {3.625383857805922*^9, 3.625384004077464*^9}, {
+ 3.625384121801248*^9, 3.6253842316012373`*^9}, {3.625384264806678*^9,
+ 3.625384281997066*^9}, {3.62539047798676*^9, 3.6253908056849613`*^9}, {
+ 3.6253908584829884`*^9, 3.62539090756668*^9}, 3.6255496234890213`*^9, {
+ 3.625549664722636*^9, 3.625549665452716*^9}, {3.625550220897066*^9,
+ 3.625550235760931*^9}, {3.6255503648265133`*^9, 3.625550372146686*^9}, {
+ 3.625554442026754*^9, 3.6255544461001472`*^9}, {3.625554486034775*^9,
+ 3.6255545190253468`*^9}, {3.6255545842991858`*^9, 3.625554670888307*^9}, {
+ 3.625554716534747*^9, 3.625554858267887*^9}, {3.625554918209834*^9,
+ 3.625554956492127*^9}, {3.6255554851248713`*^9, 3.6255554895265293`*^9}, {
+ 3.625555522077094*^9, 3.625555564221725*^9}, {3.62555582659577*^9,
+ 3.625555858050762*^9}, {3.625982868498826*^9, 3.625982870424973*^9}, {
+ 3.6526735207602654`*^9, 3.652673521437825*^9}, {3.6530428184270363`*^9,
+ 3.653042822841118*^9}, {3.65304289678363*^9, 3.653042912487072*^9}, {
+ 3.653042943752737*^9, 3.653042957069832*^9}, {3.653043528897626*^9,
+ 3.653043589966269*^9}, {3.653044688799802*^9, 3.6530446961071377`*^9}, {
+ 3.653044913712023*^9, 3.653044922223921*^9}, {3.66583410369676*^9,
+ 3.665834122096467*^9}, {3.665834268506404*^9, 3.665834269444817*^9}, {
+ 3.665834356374846*^9, 3.665834469695479*^9}, {3.6658345099312973`*^9,
+ 3.665834546676556*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ "STypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ "PTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ "VTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]",
+ "ATypeWrongOrder"}]}], "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6526731203933277`*^9, 3.653042309643551*^9,
+ 3.653042967916293*^9, 3.653043598012965*^9, 3.6530447026946917`*^9,
+ 3.65304493688171*^9, 3.665827742803383*^9, 3.665834573605568*^9,
+ 3.665899379558419*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SortoutLorentzStructuresnewp", " ", "=", " ",
+ RowBox[{"SortoutLorentzStructures", " ", "/.", "prule"}]}]], "Input",
+ CellChangeTimes->{{3.665834664418833*^9, 3.6658346742307653`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "STypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "PTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "VTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "ATypeWrongOrder"}]}], "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.665834675442861*^9, 3.6658993797353287`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SortoutLorentzStructures2", "=", " ",
+ RowBox[{"SortoutLorentzStructures", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-", "p1"}], ",", "mNeu"}], "]"}], "\[Rule]",
+ RowBox[{"Spinor", "[",
+ RowBox[{"pa", ",", "mNeu"}], "]"}]}], ",", " ",
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-", "pa"}], ",", "mNeu"}], "]"}], "\[Rule]",
+ RowBox[{"Spinor", "[",
+ RowBox[{"p1", ",", "mNeu"}], "]"}]}], ",", " ",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ",", "D"}], "]"}], "\[Rule]",
+
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ",", "D"}], "]"}]}], ",", " ",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ",", "D"}], "]"}], "\[Rule]",
+
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ",", "D"}], "]"}]}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{
+ 3.62554980257232*^9, {3.625549919164434*^9, 3.625550025901228*^9}, {
+ 3.6255502545076857`*^9, 3.625550280608358*^9}, {3.6255504693179092`*^9,
+ 3.625550526153325*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "STypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "PTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "VTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "ATypeWrongOrder"}]}], "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625550026788604*^9, 3.6255502851718884`*^9,
+ 3.6255504950835457`*^9, 3.625550527598023*^9, 3.625554531525281*^9,
+ 3.6255546775749063`*^9, 3.625554862669104*^9, 3.625554961652172*^9,
+ 3.6255555705166903`*^9, 3.6255558652862186`*^9, 3.625913495991544*^9,
+ 3.6526731217158127`*^9, 3.6530423117874813`*^9, 3.653042971931923*^9,
+ 3.65304470751115*^9, 3.653044938753175*^9, 3.665827745861465*^9,
+ 3.665899382418941*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SortoutLorentzStructures2newp", " ", "=", " ",
+ RowBox[{"SortoutLorentzStructures2", " ", "/.", "prule"}]}]], "Input",
+ CellChangeTimes->{{3.665899390210285*^9, 3.665899411097402*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}]}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "STypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "PTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "VTypeWrongOrder"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]",
+ "ATypeWrongOrder"}]}], "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.665899412020426*^9}]
+}, Open ]],
+
+Cell["\<\
+NOTE: The signs are as in table D.4 of the thesis as we apply the Fierz \
+transformations for spinor fields.\
+\>", "Text",
+ CellChangeTimes->{{3.625294659583589*^9, 3.6252946977382317`*^9}, {
+ 3.625296301291059*^9, 3.625296303380726*^9}, {3.625305870010255*^9,
+ 3.625305936335676*^9}, {3.665827332151436*^9, 3.66582734590327*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FierzTrafo", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"STypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "4"}], "SType"}], " ", "+",
+ RowBox[{
+ RowBox[{"1", "/", "4"}], "AType"}]}]}], ",", " ",
+ RowBox[{"VTypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"-", "SType"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}], "AType"}]}]}], ",", " ",
+ RowBox[{"ATypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{"SType", " ", "+", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}], "AType"}]}]}], ",", " ",
+ RowBox[{"PTypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "1"}], "/", "4"}], "SType"}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"1", "/", "4"}], "AType"}]}]}], ",", " ",
+ RowBox[{"TTypeWrongOrder", " ", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"-", "3"}], "SType"}]}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.624965503202278*^9, 3.6249655089417667`*^9}, {
+ 3.624965609532741*^9, 3.624965657527409*^9}, {3.6249657288679333`*^9,
+ 3.624965731416089*^9}, {3.6249657744431267`*^9, 3.624965875194125*^9},
+ 3.624965993182826*^9, {3.625294536369258*^9, 3.625294554947412*^9}, {
+ 3.625295432769919*^9, 3.625295433143134*^9}, {3.6253837955684547`*^9,
+ 3.625383821520781*^9}, {3.653109118467868*^9, 3.653109183617628*^9}, {
+ 3.6531093488741293`*^9, 3.653109349408635*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"STypeWrongOrder", "\[Rule]",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}]}], ",",
+ RowBox[{"VTypeWrongOrder", "\[Rule]",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}]}], ",",
+ RowBox[{"ATypeWrongOrder", "\[Rule]",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}]}], ",",
+ RowBox[{"PTypeWrongOrder", "\[Rule]",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}]}], ",",
+ RowBox[{"TTypeWrongOrder", "\[Rule]",
+ RowBox[{
+ RowBox[{"-", "3"}], " ", "SType"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.65310918598155*^9, 3.6531093506282377`*^9,
+ 3.665827749225803*^9, 3.665899417565795*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SortoutLorentzStructures3", " ", "=", " ",
+ RowBox[{"{", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "SType"}], ",",
+ " \
+ ",
+ RowBox[{"(*", " ",
+ RowBox[{"Relevante", " ", "Koeffizienten"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "AType"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "0"}], "-", "1"}], " ", "*)"}],
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "1"}], "-", "1"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "0"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "1"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Ohne", " ", "\[Mu]", " ", "2"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p1", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracSlash", "[", "pa", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}], ",",
+ " ",
+ RowBox[{"(*", " ",
+ RowBox[{
+ RowBox[{"Mit", " ", "\[Mu]", " ", "1"}], "-", "2"}], " ", "*)"}],
+ "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mq"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu"}], "]"}]}]}], ",", "D"}], "]"}],
+ "\[Rule]", "0"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]",
+ "}"}]}]], "Input",
+ CellChangeTimes->{{3.625981995553884*^9, 3.625982156886362*^9}, {
+ 3.62598219343217*^9, 3.625982344147911*^9}, {3.62598248062385*^9,
+ 3.625982526040359*^9}, {3.625982561204406*^9, 3.625982717696033*^9}, {
+ 3.62598279255162*^9, 3.6259827937836733`*^9}, {3.62598288663844*^9,
+ 3.6259828939011908`*^9}, {3.625982930813319*^9, 3.625983045884252*^9}, {
+ 3.625983119989719*^9, 3.625983190108265*^9}, {3.6259832246047564`*^9,
+ 3.625983253433977*^9}, {3.6259835539485493`*^9, 3.625983556428586*^9}, {
+ 3.625984063406651*^9, 3.625984163591755*^9}, {3.6259842287881823`*^9,
+ 3.625984317373794*^9}, {3.625984384259759*^9, 3.625984411673966*^9}, {
+ 3.625984783829444*^9, 3.625984852679812*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "SType"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "AType"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.625982327127965*^9, 3.625982354110599*^9},
+ 3.6259826874445677`*^9, 3.625982724235561*^9, 3.625982808919643*^9,
+ 3.6259830467020197`*^9, 3.6259831954343967`*^9, 3.6259832554650927`*^9,
+ 3.625983587588231*^9, 3.6259841879175997`*^9, 3.625984318345862*^9,
+ 3.625984416397532*^9, 3.625984854089896*^9, 3.652673143084482*^9,
+ 3.653042316675179*^9, 3.665827750979491*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"SortoutLorentzStructures4", " ", "=", " ",
+ RowBox[{"SortoutLorentzStructures3", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{"p1", ",", "mNeu"}], "]"}], "\[Rule]",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-", "pa"}], ",", "mNeu"}], "]"}]}], ",", " ",
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{"pa", ",", "mNeu"}], "]"}], "\[Rule]",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ RowBox[{"-", "p1"}], ",", "mNeu"}], "]"}]}]}], "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.625988826650899*^9, 3.625988950666542*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "SType"}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "AType"}], ",",
+
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p1",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}], "\[Rule]", "0"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], "\[Rule]", "0"}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988953345138*^9, 3.652673144464995*^9,
+ 3.65304231838586*^9, 3.665827752275769*^9}]
+}, Open ]]
+}, Closed]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Exercises and tests with FeynCalc", "Section",
+ CellChangeTimes->{{3.624948633621427*^9, 3.6249486407931213`*^9}, {
+ 3.625296234738603*^9, 3.625296236133233*^9}, {3.62547014577992*^9,
+ 3.625470152875256*^9}, {3.625988849791114*^9, 3.625988850603269*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{"DiracMatrix", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Mu]", ",",
+ RowBox[{"Dimension", "\[Rule]", "D"}]}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.624950715435017*^9, 3.624950770864333*^9}, {
+ 3.624950844853429*^9, 3.624950908470416*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"D", " ",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.624950731944147*^9, 3.62495077600447*^9}, {
+ 3.624950868798614*^9, 3.6249509096146383`*^9}, 3.624953109473412*^9,
+ 3.624953144719792*^9, 3.624953957882493*^9, 3.6252909316460333`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"DiracMatrix", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Mu]"}], "]"}], ",", "D"}], "]"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.624953963991448*^9, 3.624953984938545*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"D", " ",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.624953968925789*^9, 3.6249539857222424`*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{"Tr", "[",
+ RowBox[{"DiracSlash", "[",
+ RowBox[{"pa", ",", "pb"}], "]"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.624950918597591*^9, 3.624950955183838*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"4", " ",
+ RowBox[{
+ FormBox["pa",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.624950950506639*^9, 3.624950956087246*^9}, {
+ 3.624953034238727*^9, 3.624953044823757*^9}, 3.624953110616661*^9,
+ 3.624953145511384*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain0", " ", "=", " ",
+ RowBox[{"ubar", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], ".", "v"}]}]], "Input",
+ CellChangeTimes->{{3.624954021554099*^9, 3.624954041775536*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.6249540359445677`*^9, 3.624954042161015*^9},
+ 3.624956913023353*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"couple", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracMatrix", "[", "\[Alpha]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Alpha]", "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.6249593330507727`*^9, 3.624959355200626*^9}, {
+ 3.624959398912442*^9, 3.624959409613364*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Alpha]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Alpha]",
+ TraditionalForm],
+ TraditionalForm]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.624959410621179*^9, 3.62495944130375*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"zerop", " ", "=", " ",
+ RowBox[{"4",
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["pb",
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox["p2",
+ TraditionalForm], ",", "mq"}], "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "5", "]"}], ".",
+ RowBox[{"Spinor", "[",
+ RowBox[{
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu"}], "]"}]}],
+ RowBox[{"mq", "^", "2"}]}]}]], "Input",
+ CellChangeTimes->{{3.624962733513382*^9, 3.624962764810471*^9}, {
+ 3.624962823120233*^9, 3.62496282355474*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"4", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.624962824627986*^9, 3.6249630563803167`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"zerop", "/.", "SortoutLorentzStructures"}]], "Input",
+ CellChangeTimes->{{3.624962741649876*^9, 3.6249627556114693`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"4", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.6249627565239573`*^9, 3.6249627674874763`*^9},
+ 3.624962826783065*^9, 3.624963057382104*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[", "couple", "]"}]], "Input",
+ CellChangeTimes->{{3.624959367117733*^9, 3.624959394503718*^9}, {
+ 3.624959504009138*^9, 3.62495950592244*^9}}],
+
+Cell[BoxData[
+ FormBox["4", TraditionalForm]], "Output",
+ CellChangeTimes->{{3.624959371266412*^9, 3.624959411582078*^9},
+ 3.624959443297598*^9, 3.6249595067564487`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"moeps", " ", "=", " ",
+ RowBox[{
+ RowBox[{"a", "*", "x"}], " ", "+", " ",
+ RowBox[{"b", "*", "y"}], " ", "+", " ",
+ RowBox[{"x", "*", "y"}], " ", "+", " ",
+ RowBox[{"c", "*",
+ RowBox[{"x", "^", "2"}]}], " ", "-",
+ RowBox[{"3", "x"}]}]}]], "Input",
+ CellChangeTimes->{{3.624966626455099*^9, 3.624966637097459*^9}, {
+ 3.624966927071856*^9, 3.624966927160817*^9}, {3.624966957700128*^9,
+ 3.624966964293695*^9}, {3.625295306465556*^9, 3.625295307778377*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"a", " ", "x"}], "+",
+ RowBox[{"b", " ", "y"}], "+",
+ RowBox[{"c", " ",
+ SuperscriptBox["x", "2"]}], "+",
+ RowBox[{"x", " ", "y"}], "-",
+ RowBox[{"3", " ", "x"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624966638221924*^9, 3.6249669298081093`*^9, 3.624966964798009*^9, {
+ 3.625295291474559*^9, 3.625295308429907*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"moeps", ",", "x"}], "]"}]], "Input",
+ CellChangeTimes->{{3.624966641410199*^9, 3.6249666527037582`*^9}, {
+ 3.62496669168219*^9, 3.6249666952080317`*^9}, {3.624966935752206*^9,
+ 3.624966941726674*^9}, {3.6249680454443808`*^9, 3.6249680483971863`*^9}, {
+ 3.6252952951993723`*^9, 3.6252952983050737`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"x", " ",
+ RowBox[{"(",
+ RowBox[{"a", "+", "y", "-", "3"}], ")"}]}], "+",
+ RowBox[{"b", " ", "y"}], "+",
+ RowBox[{"c", " ",
+ SuperscriptBox["x", "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624966653233776*^9, 3.6249666960980673`*^9, {3.624966931694182*^9,
+ 3.624966966324739*^9}, 3.624968049410676*^9, {3.625295298917067*^9,
+ 3.625295309206169*^9}}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Box B1", "Section",
+ CellChangeTimes->{{3.624948653905464*^9, 3.6249486551059847`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Subsection",
+ CellChangeTimes->{{3.62547018814291*^9, 3.625470188926362*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ubar", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p2", ",", "m2"}], "]"}]}], ";", " ",
+ RowBox[{"v", " ", "=", " ",
+ RowBox[{"SpinorV", "[",
+ RowBox[{"p1", ",", "m1"}], "]"}]}], ";",
+ RowBox[{"vbar", " ", "=", " ",
+ RowBox[{"SpinorVBar", "[",
+ RowBox[{"pa", ",", "ma"}], "]"}]}], ";", " ",
+ RowBox[{"u", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pb", ",", " ", "mb"}], "]"}]}], ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain1", " ", "=", " ",
+ RowBox[{"ubar", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "p2", "]"}], "+", "mq"}], ")"}], ".", "Zwei",
+ ".", "v"}]}]], "Input",
+ CellChangeTimes->{{3.6249600471797247`*^9, 3.6249600475918903`*^9}, {
+ 3.624960110020569*^9, 3.624960110515991*^9}, {3.6249605786546288`*^9,
+ 3.6249605832672*^9}, {3.625468446654454*^9, 3.625468446681176*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624958904079495*^9, 3.624960052935883*^9, 3.624960117082448*^9,
+ 3.62496015264618*^9, 3.624960584122257*^9, 3.6249610253291388`*^9, {
+ 3.6249610569189653`*^9, 3.624961082336829*^9}, 3.624964084105648*^9,
+ 3.625290951715888*^9, 3.625379393236635*^9, 3.625468457224853*^9,
+ 3.6255507339989443`*^9, 3.625551055316133*^9, 3.625552709855989*^9,
+ 3.62555564572501*^9, 3.625562380066894*^9, 3.625570819671199*^9,
+ 3.6259136230934963`*^9, 3.652673220756485*^9, 3.653042345540969*^9,
+ 3.653109212594296*^9, 3.653109359523252*^9, 3.6658268820310802`*^9,
+ 3.66583458656102*^9, 3.665834698793219*^9, 3.665899447700252*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain2", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pb", "]"}], "+", "mq"}], ")"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "u"}]}]], "Input",
+ CellChangeTimes->{{3.62495977058398*^9, 3.624959778198268*^9},
+ 3.624959930619413*^9, {3.624960050239801*^9, 3.6249600505884523`*^9}, {
+ 3.6249601139115257`*^9, 3.6249601141598186`*^9}, {3.6249605892434483`*^9,
+ 3.624960590543098*^9}, {3.624960644364827*^9, 3.624960646194121*^9}, {
+ 3.624960754079908*^9, 3.624960755217659*^9}, {3.6254684497050343`*^9,
+ 3.625468449856061*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624958905045106*^9, 3.624959778742733*^9, 3.6249599318502398`*^9,
+ 3.624960054031616*^9, 3.6249601149453897`*^9, 3.624960153732232*^9,
+ 3.6249605914552383`*^9, 3.6249606469029427`*^9, 3.624960755916338*^9,
+ 3.624961025970542*^9, {3.62496105759971*^9, 3.624961083217493*^9},
+ 3.624964087117188*^9, 3.6252909527207937`*^9, 3.625379394018697*^9,
+ 3.625468458587825*^9, 3.625550734696653*^9, 3.6255510560156116`*^9,
+ 3.625552710519665*^9, 3.625555646310611*^9, 3.625562380717391*^9,
+ 3.625570820224427*^9, 3.625913623842698*^9, 3.6526732216468287`*^9,
+ 3.653042346105959*^9, 3.653109213825131*^9, 3.653109360289103*^9,
+ 3.665826919246532*^9, 3.665834587421838*^9, 3.665834700920576*^9,
+ 3.665899448508686*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain3", " ", "=", " ",
+ RowBox[{"ubar", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Zwei", ".",
+ "v"}]}]], "Input",
+ CellChangeTimes->{{3.625296075149048*^9, 3.6252960993083773`*^9}, {
+ 3.653042346604447*^9, 3.653042359181657*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625296104559725*^9, 3.625379394664719*^9, 3.625468459381822*^9,
+ 3.625550735340353*^9, 3.625551056698601*^9, 3.625552711068613*^9,
+ 3.625555646858637*^9, 3.625562381329455*^9, 3.625570820777094*^9,
+ 3.625913624498904*^9, 3.652673222354496*^9, {3.6530423566741877`*^9,
+ 3.6530423620294733`*^9}, 3.653109214448386*^9, 3.653109360920083*^9,
+ 3.665826929068385*^9, 3.665834588217402*^9, 3.6658347017862473`*^9,
+ 3.665899449243642*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain4", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "u"}]}]], "Input",
+ CellChangeTimes->{{3.625296116979075*^9, 3.6252961347621202`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625296139438325*^9, 3.6253793953841467`*^9,
+ 3.625468460122944*^9, 3.625550735932117*^9, 3.625551057388857*^9,
+ 3.625552711617193*^9, 3.625555647400156*^9, 3.625562381830393*^9,
+ 3.625570821250396*^9, 3.625913625166081*^9, 3.652673223140304*^9,
+ 3.6530423634628153`*^9, 3.653109215048123*^9, 3.653109361498102*^9,
+ 3.665826939782319*^9, 3.665834588990611*^9, 3.665834702586459*^9,
+ 3.665899449955461*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain5", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "u"}]}]], "Input",
+ CellChangeTimes->{{3.625380159117663*^9, 3.625380173717288*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.62538017681651*^9, 3.625468461180613*^9,
+ 3.625550736542261*^9, 3.62555105840766*^9, 3.6255527122085743`*^9,
+ 3.625555647896325*^9, 3.6255623823874063`*^9, 3.625570821762477*^9,
+ 3.625913625777422*^9, 3.652673223859249*^9, 3.653042364217059*^9,
+ 3.653109215634651*^9, 3.653109364277925*^9, 3.665826956987555*^9,
+ 3.665834589731184*^9, 3.665834703363524*^9, 3.665899450636644*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Codeready", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",", " ",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g2L", " ", "\[Rule]",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}]}],
+ "}"}]}]], "Input",
+ CellChangeTimes->{{3.625464932055994*^9, 3.625464956531705*^9}, {
+ 3.625465006402581*^9, 3.6254650472797947`*^9}, {3.625465178985278*^9,
+ 3.6254652307169857`*^9}, {3.625562333521805*^9, 3.6255623517264137`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "(", "1", ")"}]}], ",",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2L", "\[Rule]",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625465234935491*^9, 3.625468462177044*^9, 3.625550737157226*^9,
+ 3.625551059366625*^9, 3.625552712678268*^9, 3.6255556484621553`*^9, {
+ 3.625562354334132*^9, 3.625562382944086*^9}, 3.62557082240836*^9,
+ 3.625913626358959*^9, 3.652673224572509*^9, 3.653042364963767*^9,
+ 3.6531092163623257`*^9, 3.653109365185553*^9, 3.665827025062303*^9,
+ 3.665834590516794*^9, 3.665834704086409*^9, 3.6658994514910107`*^9}]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"Drho", "=", " ",
+ RowBox[{
+ RowBox[{"xd1", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd2", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd3", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", " ", "\[Rho]"}], "]"}]}]}]}], ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drhosigma", "=", " ",
+ RowBox[{
+ RowBox[{"xd00", " ",
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd33", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], "+", " ",
+ RowBox[{"xd12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"xd13",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "+", "pb"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"xd23",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}]}]}], ")"}]}]}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+",
+ RowBox[{"xd12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd11", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "+", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255709382178917`*^9, 3.625913628307012*^9,
+ 3.652673226032504*^9, 3.653042366378703*^9, 3.65310921819879*^9,
+ 3.653109366801879*^9, 3.665827027574861*^9, 3.6658345935039*^9,
+ 3.665834706306506*^9, 3.665899458054009*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D0 Terms", "Subsection",
+ CellChangeTimes->{{3.625305557638105*^9, 3.625305559240715*^9}, {
+ 3.625305949033546*^9, 3.625305949135116*^9}}],
+
+Cell["\<\
+Factor \[ImaginaryI] is neglected here from the beginning to simplify reading \
+off the Wilson coefficients.\
+\>", "Text",
+ CellChangeTimes->{{3.62546548792087*^9, 3.6254655102591057`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD0", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{"-", " ", "xd0"}], " ",
+ RowBox[{"Alfas", "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"chain1", ".", "chain2"}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "murule"}], "/.", "massrules"}], " ", "/.", "prule"}]}]], "Input",
+ CellChangeTimes->{{3.624959666573124*^9, 3.624959670123781*^9}, {
+ 3.6249597295032053`*^9, 3.624959756636725*^9}, {3.6249598114325047`*^9,
+ 3.62495982931739*^9}, {3.624960079569923*^9, 3.6249600797460337`*^9}, {
+ 3.6249606998102417`*^9, 3.624960746601453*^9}, {3.624960892628036*^9,
+ 3.6249608965431213`*^9}, {3.624961097771532*^9, 3.624961136021925*^9}, {
+ 3.624961206899859*^9, 3.624961287579777*^9}, {3.624961335412776*^9,
+ 3.624961335628813*^9}, {3.624961369614399*^9, 3.624961402055044*^9}, {
+ 3.624963915427767*^9, 3.624963967162962*^9}, {3.625291031469491*^9,
+ 3.625291032566012*^9}, {3.625295771612755*^9, 3.625295838094141*^9}, {
+ 3.625296175963073*^9, 3.625296177676832*^9}, {3.625305643537538*^9,
+ 3.625305643984682*^9}, 3.625465514891465*^9, {3.625549197366715*^9,
+ 3.625549200597301*^9}, {3.665834622943911*^9, 3.66583462490884*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6249589080698843`*^9, 3.624959672545013*^9, {3.624959753049749*^9,
+ 3.6249597702762547`*^9}, 3.6249598323898993`*^9, {3.62495992253249*^9,
+ 3.6249599351052732`*^9}, {3.624960057586384*^9, 3.624960083126081*^9},
+ 3.624960121261129*^9, 3.624960156748864*^9, 3.6249605950686903`*^9,
+ 3.624960651846664*^9, {3.6249607138108873`*^9, 3.624960760567047*^9},
+ 3.6249609000365973`*^9, 3.624961028984342*^9, {3.624961060279284*^9,
+ 3.624961138900353*^9}, {3.624961225960746*^9, 3.6249612552769003`*^9},
+ 3.6249612904695807`*^9, 3.624961338758761*^9, {3.6249613752650633`*^9,
+ 3.624961404772586*^9}, 3.6249629546102552`*^9, {3.624963929134005*^9,
+ 3.624963970336507*^9}, 3.624964090853015*^9, 3.625290954734209*^9,
+ 3.625291035207026*^9, 3.625294707132298*^9, {3.625295822934689*^9,
+ 3.6252958475652*^9}, 3.6252961805406857`*^9, {3.625297108114764*^9,
+ 3.625297136806979*^9}, 3.625305645909533*^9, 3.6253793986405983`*^9,
+ 3.625465527052197*^9, 3.625466007886428*^9, 3.625468473336117*^9,
+ 3.625550740414055*^9, 3.6255510634784822`*^9, 3.625552716428852*^9,
+ 3.625555681978951*^9, 3.6255623961463842`*^9, 3.625570834834362*^9,
+ 3.625913780781299*^9, 3.652673237262208*^9, 3.6530423708271313`*^9,
+ 3.653042999611998*^9, 3.653043614650365*^9, 3.653109228099073*^9,
+ 3.653109370597036*^9, 3.665827232082595*^9, {3.665834601719778*^9,
+ 3.665834626825487*^9}, 3.665834711139303*^9, 3.665834751942752*^9,
+ 3.6658348105970373`*^9, 3.665834998932836*^9, 3.6658994636747427`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.66583474144881*^9, 3.665834746429978*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6658347542952223`*^9, 3.6658348127428217`*^9,
+ 3.6658350006648684`*^9, 3.66589946430645*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructuresnewp"}]], "Input",
+ CellChangeTimes->{{3.624962182854126*^9, 3.624962190947191*^9}, {
+ 3.624963974536367*^9, 3.624963976830482*^9}, {3.625296187294426*^9,
+ 3.625296188016369*^9}, {3.6658346155202*^9, 3.66583465071141*^9}, {
+ 3.665834815742469*^9, 3.6658348175260687`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.624962191873794*^9, 3.624962857530168*^9, {3.624963077320238*^9,
+ 3.624963087234548*^9}, 3.624963146120607*^9, 3.624963398936224*^9,
+ 3.624963977681282*^9, 3.624964095696726*^9, 3.624964184855517*^9,
+ 3.6249644986944313`*^9, 3.624964641766143*^9, 3.624964861046287*^9,
+ 3.624964939812003*^9, 3.6249651977875147`*^9, 3.624965277283038*^9,
+ 3.624965422126549*^9, 3.6249654772077913`*^9, 3.624965676079136*^9,
+ 3.624965752784827*^9, 3.6249659222761507`*^9, 3.624966008772718*^9,
+ 3.624966211277124*^9, 3.624966297296323*^9, 3.624966469938156*^9, {
+ 3.6249670010821867`*^9, 3.624967010623945*^9}, 3.624968086752666*^9,
+ 3.625290955297021*^9, 3.625291040032655*^9, 3.625291283144055*^9,
+ 3.6252947092454367`*^9, 3.62529494074448*^9, 3.625295242876505*^9,
+ 3.625295337884973*^9, 3.625295375705779*^9, 3.625295528660084*^9,
+ 3.625295850966693*^9, 3.62529618892808*^9, 3.625297142345553*^9,
+ 3.62530565285886*^9, 3.6253794031389637`*^9, 3.6254630678590384`*^9,
+ 3.625465533366205*^9, 3.625466017107444*^9, 3.625468474443779*^9,
+ 3.625550749182852*^9, 3.62555108321343*^9, 3.625552721254834*^9,
+ 3.625555683851441*^9, 3.625562396402617*^9, 3.625570835172556*^9,
+ 3.62591378117386*^9, 3.652673237478981*^9, 3.653042371214642*^9,
+ 3.653043001372182*^9, 3.6530436158297367`*^9, 3.6531092290624847`*^9,
+ 3.653109370802039*^9, 3.6658277254074497`*^9, 3.665827775083582*^9, {
+ 3.665834605498534*^9, 3.665834639042186*^9}, 3.6658347120859547`*^9,
+ 3.665834756461499*^9, 3.665834818325111*^9, 3.665835003972844*^9,
+ 3.665899464827833*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"PTypeWrongOrder", ",", "STypeWrongOrder"}], "}"}]}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.665835006954273*^9, 3.665835023409657*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"PTypeWrongOrder", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], ")"}]}], "+",
+ RowBox[{"STypeWrongOrder", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], ")"}]}]}], TraditionalForm]], "Output",\
+
+ CellChangeTimes->{3.665835024689234*^9, 3.6658994663125668`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD0", " ", "=", " ",
+ RowBox[{"%", "/.", "FierzTrafo"}]}]], "Input",
+ CellChangeTimes->{{3.624965679245668*^9, 3.624965685549016*^9}, {
+ 3.625295530669343*^9, 3.6252955346211367`*^9}, {3.625463077800538*^9,
+ 3.62546307915301*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], ")"}]}]}], TraditionalForm]], "Output",\
+
+ CellChangeTimes->{
+ 3.625295535389194*^9, 3.625295856406333*^9, 3.6252961947112513`*^9,
+ 3.625297143231063*^9, 3.625305654780878*^9, 3.62537940520387*^9, {
+ 3.6254630708837852`*^9, 3.625463083079734*^9}, 3.625465535062874*^9,
+ 3.625466021767439*^9, 3.625468477627981*^9, 3.6255507552525682`*^9,
+ 3.625551084920434*^9, 3.625552726532205*^9, 3.625555684654168*^9,
+ 3.625562398170458*^9, 3.625570835972389*^9, 3.625913781455433*^9,
+ 3.652673238404284*^9, 3.653042373194377*^9, 3.653043003229764*^9,
+ 3.653043616717955*^9, 3.653109229837655*^9, 3.653109371629121*^9,
+ 3.665827777164407*^9, 3.6658347135547657`*^9, 3.665834760694983*^9,
+ 3.665834824592605*^9, 3.665899467714087*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"AType", ",", "SType"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.6658348899643784`*^9, 3.6658349062699137`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], ")"}]}]}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.665834907510935*^9, 3.665899471710409*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho] Terms", "Subsection",
+ CellChangeTimes->{{3.625305679137005*^9, 3.6253056846481037`*^9}, {
+ 3.625305953758569*^9, 3.625305953830447*^9}, {3.625305987185422*^9,
+ 3.625305989719503*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", " ", "Alfas"}], "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain2"}], " ", ")"}]}], " ", "+", " ",
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain1", ".", "chain4"}], ")"}]}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}], "/.", "prule"}]}]], "Input",
+ CellChangeTimes->{{3.62530597436487*^9, 3.625306047659739*^9}, {
+ 3.625306431043401*^9, 3.625306431203772*^9}, {3.625306539035005*^9,
+ 3.625306542994223*^9}, {3.6253066189204473`*^9, 3.6253066281104*^9}, {
+ 3.62546554633668*^9, 3.625465546849825*^9}, {3.665835059795059*^9,
+ 3.6658350693602552`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.665835071435131*^9, 3.665835122363482*^9,
+ 3.6658352344728127`*^9, 3.665899475998691*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]", "]"}], "/.",
+ "murule"}]], "Input",
+ CellChangeTimes->{{3.6253064728403263`*^9, 3.625306478827217*^9}, {
+ 3.625306694391315*^9, 3.625306696026248*^9}, {3.6253089571639557`*^9,
+ 3.625308962889781*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->CompressedData["
+1:eJwVzk0swgEYBvC/Wh+cupg1ZitqtpoRyuJSy0ysNRxrC+tivg6GzdaaaLOZ
+YaVGkg4tLoqWSirH2FpuljRKvtocjMLGvO/h2W97tmd7WMOT/doygiDaIJSY
+ujFIKkjkpscOtOIwLkU109s96FuYv4j+zhEbqNibdaIx17EfTdA8SdS+NJJF
++anzInrh1zSFQGsLowu13y1o0QjLrUfHoisO1Jbb96JGpieCWoKiK1TIPsqj
+7YlA9Skopei0YXBq72ECrVFWzaKCJ4UFNUZLTpS45LnRa4MmhZpU3XmUYWC9
+oKrK8lIaDNWyORn8Y312U8gFicOvv6GCXw2tTBrIe+X00cGD3iFXEyhTDOqa
+wUDRmBGA5oGPeiEY+9yViUGdvy5+D3JzJ7cFIfSdW0yHqCDZkc+vo2u+tA9V
+MkYjMTCgZiTRPzr5m6SE3TuxTAWZJPMqyh3ftKG+mbMfDvgPbVjNyg==
+ "]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructuresnewp"}]], "Input",
+ CellChangeTimes->{{3.625306804469974*^9, 3.625306811865828*^9}, {
+ 3.6253085499821987`*^9, 3.625308554515586*^9}, {3.625463131270597*^9,
+ 3.625463133326589*^9}, {3.665835109327916*^9, 3.665835111415514*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ",
+ "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ",
+ "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ",
+ "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ",
+ "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ",
+ "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ",
+ "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ",
+ "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ",
+ "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625306813566082*^9, 3.625307173088584*^9, 3.6253072831365643`*^9,
+ 3.625307416876954*^9, 3.6253075755166607`*^9, 3.625307783872416*^9,
+ 3.625307924967304*^9, 3.625308088047762*^9, 3.625308556286714*^9,
+ 3.625308714775177*^9, 3.625308973642912*^9, 3.625309192010993*^9,
+ 3.625309447243217*^9, 3.625309583129259*^9, 3.625309685963169*^9,
+ 3.6253098409466343`*^9, 3.625310000866346*^9, 3.62531043016179*^9,
+ 3.6253130730720673`*^9, {3.625313126546463*^9, 3.62531314605309*^9}, {
+ 3.62531319794596*^9, 3.625313208994722*^9}, 3.6253134667440968`*^9,
+ 3.625313559972865*^9, 3.625313601638803*^9, 3.6253140032859783`*^9,
+ 3.625314090526945*^9, 3.625314121342135*^9, 3.625379771073818*^9,
+ 3.625463135357757*^9, 3.625465571345352*^9, 3.625466058335956*^9,
+ 3.6254685234602947`*^9, 3.625551181232664*^9, 3.625552891956258*^9, {
+ 3.6255557005253477`*^9, 3.625555706232604*^9}, 3.625562407898164*^9,
+ 3.625570853235896*^9, 3.6259139292379208`*^9, 3.652673261890915*^9,
+ 3.653042380961308*^9, 3.6530433401726017`*^9, 3.653043623040719*^9,
+ 3.653109235543488*^9, 3.653109376623309*^9, 3.6658277843129377`*^9, {
+ 3.665835083378271*^9, 3.6658351266313257`*^9}, 3.6658352377579517`*^9,
+ 3.665899479370612*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]", " ", "=",
+ RowBox[{
+ RowBox[{"%", "/.", "FierzTrafo"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.625313243442471*^9, 3.625313248463183*^9},
+ 3.625313589247513*^9, 3.6253140738719587`*^9, 3.625314107489214*^9,
+ 3.625379774244885*^9, 3.625391085917942*^9, {3.625463147647232*^9,
+ 3.6254631498625803`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6253132495359*^9, 3.6253134688820744`*^9, 3.6253135647289143`*^9,
+ 3.625313603272923*^9, 3.625314006335417*^9, {3.625314095235948*^9,
+ 3.625314121611273*^9}, 3.625379774440558*^9, 3.625463151448051*^9,
+ 3.6254655800891027`*^9, 3.6254660589212103`*^9, 3.6254685255342073`*^9,
+ 3.6255511841858673`*^9, 3.625552893173984*^9, 3.6255557083026876`*^9,
+ 3.62556241044487*^9, 3.625570855230822*^9, 3.6259139292792892`*^9,
+ 3.652673265783565*^9, 3.6530423819067793`*^9, 3.6530433406888437`*^9,
+ 3.653043624477099*^9, 3.65310923593307*^9, 3.653109378577201*^9,
+ 3.665827784856077*^9, 3.665835086525691*^9, 3.665835130771186*^9,
+ 3.6658352394364357`*^9, 3.665899480948825*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho]\[Sigma] Terms", "Subsection",
+ CellChangeTimes->{{3.6253056894518557`*^9, 3.625305702952609*^9}, {
+ 3.6253059566001167`*^9, 3.625305956697426*^9}, {3.625305992719819*^9,
+ 3.625305998398951*^9}, {3.6255511975925703`*^9, 3.625551199611137*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", " ", "Alfas"}], "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Drhosigma",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain5"}], " ", ")"}]}], ",", "D"}],
+ "]"}]}], "]"}], "/.", "massrules"}], " ", "/.", "prule"}]}]], "Input",
+ CellChangeTimes->{{3.625380086650072*^9, 3.625380115400429*^9}, {
+ 3.625380187296126*^9, 3.625380187366157*^9}, 3.625465621642695*^9, {
+ 3.665835433581751*^9, 3.665835437725923*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pNeu", "+", "pq"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6253801890080233`*^9, 3.625463179515177*^9,
+ 3.6254655948765287`*^9, 3.625465625526169*^9, 3.625466083309107*^9,
+ 3.625468531864109*^9, 3.625551203212915*^9, 3.625552906751918*^9,
+ 3.625555652623897*^9, 3.625562420127248*^9, 3.6255708635776987`*^9,
+ 3.62591395467631*^9, 3.652673294918086*^9, 3.6530423853506937`*^9,
+ 3.653043343151825*^9, 3.653043631763973*^9, 3.653109238938882*^9,
+ 3.65310938114788*^9, 3.665827788652053*^9, 3.665835249756309*^9,
+ 3.6658353467735233`*^9, 3.665835439008024*^9, 3.6658994847653513`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]\[Sigma]", "]"}], "/.",
+ "murule"}]], "Input",
+ CellChangeTimes->{{3.625381021060691*^9, 3.625381026948494*^9}, {
+ 3.625381133600312*^9, 3.625381137596294*^9}, {3.625381171232443*^9,
+ 3.625381179625353*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ TagBox[
+ FrameBox[GridBox[{
+ {
+ ItemBox[
+ TagBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ",
+ TemplateBox[{"4"},
+ "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,
+ FrameStyle -> GrayLevel[0.75], RoundingRadius -> 7]& )], " ",
+
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ TemplateBox[{"556"},
+ "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, FrameStyle ->
+ GrayLevel[0.75], RoundingRadius -> 7]& )], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pNeu"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}],
+ Short[#, 5]& ],
+ BaseStyle->{Deployed -> False},
+ StripOnInput->False]},
+ {GridBox[{
+ {
+ TagBox[
+ TooltipBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource[
+ "FEStrings", "sizeBriefExplanation"], TraditionalForm],
+ ImageSizeCache->{68., {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->{64., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ TraditionalForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 151, 22680334536601698837, 5/2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ TraditionalForm],
+ ImageSizeCache->{70., {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[
+ Identity, 151, 22680334536601698837, 5 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ TraditionalForm],
+ ImageSizeCache->{54., {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[
+ Identity, 151, 22680334536601698837, Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ TraditionalForm],
+ ImageSizeCache->{94., {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[151]], TraditionalForm]], "Output",
+ CellChangeTimes->CompressedData["
+1:eJxTTMoPSmVkYGBQA+Io3ntT7zK9dowKcloMor91flgBog9MmXkeRLMEH3wB
+ol8sk9C4B1K3XtQMRDessIkA0Tm/VheA6IyNZ2eBaBPehg0gOnN7lv59IB27
+OTb3EZDecFq6CkSbTXhXB6K/tN/Zwsr82tHl/6+HbEA6YVrocxAtpMAkzw6k
+nbK+BnAAaWans2sNQPJJDs2GQFopJvCCEZAOkf92E0SfXvNE3QxIW3VkulsB
+6VOPSs8/BNKTd0x5/NrstWP7cmWZBeavHVeItUwG0Xt7Zm8H0Qu/LTlwAEhv
+l0i8BKIfKCz/zRTw2tFI03QBG5BWk9BfA6J/L/q0HUT/qOH9qwqkAY8RlI4=
+
+ "]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructuresnewp"}]], "Input",
+ CellChangeTimes->{{3.6254631939132833`*^9, 3.625463195188222*^9}, {
+ 3.6658352624231586`*^9, 3.6658352633104143`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd11",
+ " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625381200706884*^9, 3.6253815016806393`*^9, 3.625381702759262*^9,
+ 3.6253822094567823`*^9, 3.625382321318186*^9, 3.6253825944550657`*^9,
+ 3.625382789824521*^9, 3.625383126573975*^9, 3.6253833003439837`*^9,
+ 3.625384316155945*^9, 3.6253909557280817`*^9, {3.625391031948564*^9,
+ 3.625391057638604*^9}, 3.6253910964964542`*^9, 3.625463207569943*^9,
+ 3.625465616219475*^9, 3.6254656595375223`*^9, 3.625466104644033*^9,
+ 3.625468581195877*^9, 3.625551214621237*^9, 3.625552922178753*^9,
+ 3.6255555869661303`*^9, 3.625555663904789*^9, 3.6255624313013687`*^9,
+ 3.6255708754663*^9, 3.625913980170545*^9, 3.652673308966083*^9,
+ 3.653042401493425*^9, 3.65304335639069*^9, 3.653043644992577*^9,
+ 3.6531092533021097`*^9, 3.653109395197806*^9, 3.665827805474003*^9,
+ 3.665835266129849*^9, 3.665835361964219*^9, 3.665835455863656*^9,
+ 3.6658994967021437`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"%", "/.", "FierzTrafo"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.6253909612811747`*^9, 3.6253909710234747`*^9}, {
+ 3.625391020386517*^9, 3.625391027139091*^9}, 3.625391069672509*^9, {
+ 3.62546321935913*^9, 3.625463223446134*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6253909730228977`*^9, 3.625391029045554*^9, 3.625391063001596*^9,
+ 3.625391097406967*^9, 3.625463237800507*^9, 3.625465660177582*^9,
+ 3.6254661052195377`*^9, 3.625468586915668*^9, 3.625551214765788*^9,
+ 3.625552926379499*^9, 3.625555664130527*^9, 3.625562431476336*^9,
+ 3.6255708756564293`*^9, 3.6259139802298317`*^9, 3.65267333155617*^9,
+ 3.653042401697641*^9, 3.653043356586083*^9, 3.6530436451354723`*^9,
+ 3.653109253525865*^9, 3.653109395355809*^9, 3.665827805603149*^9, {
+ 3.665835335581027*^9, 3.665835362386436*^9}, 3.665835459607376*^9,
+ 3.665899496835248*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Final result", "Subsection",
+ CellChangeTimes->{{3.6253799936550903`*^9, 3.625380000100943*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FinalB1", " ", "=", " ",
+ RowBox[{
+ "FinalD0", " ", "+", " ", "FinalD\[Rho]", " ", "+", " ",
+ "FinalD\[Rho]\[Sigma]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625391139147846*^9, 3.625391213519237*^9}, {
+ 3.625391308590064*^9, 3.625391342286079*^9}, {3.6253914689097357`*^9,
+ 3.625391472534728*^9}, 3.6254652527776127`*^9, {3.6259848989769173`*^9,
+ 3.625984902047152*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "FinalB1", "]"}]], "Input",
+ CellChangeTimes->{{3.625463250710516*^9, 3.625463259482606*^9}, {
+ 3.625465256617535*^9, 3.62546525897753*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R"}], "+",
+ RowBox[{"g1R", " ", "g2L"}]}], ")"}]}], "-",
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2L"}], "+",
+ RowBox[{"g1R", " ", "g2R"}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1"}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1"}]}],
+ ")"}]}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"g2R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+", "xd13"}],
+ ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+", "xd13"}],
+ ")"}]}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625463261661044*^9, 3.625463870298188*^9,
+ 3.625465259897517*^9, 3.6254653347570887`*^9, 3.62546540130726*^9,
+ 3.6254656776622343`*^9, 3.6254661204266253`*^9, 3.62546859556394*^9,
+ 3.6255512417784967`*^9, 3.6255529388867817`*^9, 3.6255557148741283`*^9,
+ 3.625562369083843*^9, 3.625562445663342*^9, 3.625570885338773*^9,
+ 3.625913991806244*^9, 3.653042403265369*^9, 3.653043357389061*^9,
+ 3.65304364558532*^9, 3.6531092561632643`*^9, 3.6531093955245934`*^9,
+ 3.6658278063411303`*^9, 3.665835283793333*^9, 3.665835385252363*^9,
+ 3.665835467246459*^9, 3.66589949718447*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"AType", ",", "SType"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.625463276939246*^9, 3.6254633396136227`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ", "AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R"}], "+",
+ RowBox[{"g1R", " ", "g2L"}]}], ")"}]}], "+",
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1"}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1"}]}],
+ ")"}]}]}], ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2L"}], "+",
+ RowBox[{"g1R", " ", "g2R"}]}], ")"}]}]}], "-",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"g2R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+", "xd13"}],
+ ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+", "xd13"}],
+ ")"}]}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.625463291863235*^9, 3.625463342857252*^9},
+ 3.625463872203236*^9, 3.6254652641991873`*^9, 3.625465337448148*^9,
+ 3.625465402800016*^9, 3.62546568010891*^9, 3.625466123112153*^9,
+ 3.625468602293141*^9, 3.6255512461879587`*^9, 3.625552942110736*^9,
+ 3.625555715829377*^9, 3.625562450967411*^9, 3.625570886139935*^9,
+ 3.6259139943176813`*^9, 3.653042403421092*^9, 3.653043357611697*^9,
+ 3.653043645757091*^9, 3.6531092576418543`*^9, 3.653109395678342*^9,
+ 3.665827810145956*^9, 3.6658352861944313`*^9, 3.6658353855236053`*^9,
+ 3.6658354688735437`*^9, 3.665899497395954*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "Codeready"}]], "Input",
+ CellChangeTimes->{{3.625465268066956*^9, 3.6254652763070173`*^9}, {
+ 3.625465379267952*^9, 3.625465416977507*^9}, {3.625465684969639*^9,
+ 3.6254656962466307`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "pi"}]],
+ RowBox[{"Alfas", " ", "AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"MNeu", "(", "1", ")"}], "2"], " ", "xd11"}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd1", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"MNeu", "(", "1", ")"}], "2"], " ", "xd11"}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd1", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "pi"}]],
+ RowBox[{"Alfas", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"MNeu", "(", "1", ")"}], "2"], " ", "xd11"}], "+",
+
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+",
+ "xd13"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+",
+ "xd13"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"MNeu", "(", "1", ")"}], "2"], " ", "xd11"}], "+",
+
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], "-",
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6254652773471117`*^9, 3.625465338898035*^9, {3.6254654048755093`*^9,
+ 3.625465418743664*^9}, 3.625465698105775*^9, 3.625466128195532*^9,
+ 3.6254686062202387`*^9, 3.625551247807169*^9, 3.625552962477865*^9,
+ 3.625555716891464*^9, 3.625562358972231*^9, 3.625562458067978*^9,
+ 3.6255708873431053`*^9, 3.625913996437868*^9, 3.653042404802945*^9,
+ 3.653043357978786*^9, 3.653043660757042*^9, 3.653109258966813*^9,
+ 3.653109395867741*^9, 3.6658278127071323`*^9, 3.6658352889206953`*^9,
+ 3.665835386026923*^9, 3.665899497611128*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.625465702912792*^9, 3.625465707861985*^9}}],
+
+Cell["\<\
+ -(Alfas*AType*(FR(1,i,tt,gen)*(-2*xd1*ER(1,i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) +
+ - ELc(1,i,tt,gen)*(2*xd00 + (2*xd1 + xd11 + 2*xd12 + 2*xd13 + \
+2*xd2 + xd22 + 2*xd23 + 2*xd3 + xd33)*Mf(tt,gen)**2 + xd11*MNeu(1)**2)) +
+ - FL(1,i,tt,gen)*(-2*xd1*ELc(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) +
+ - ER(1,i,tt,gen)*(2*xd00 + (2*xd1 + xd11 + 2*xd12 + 2*xd13 + \
+2*xd2 + xd22 + 2*xd23 + 2*xd3 + xd33)*Mf(tt,gen)**2 + xd11*MNeu(1)**2)) +
+ - 2*xd0*(ER(1,i,tt,gen)*FL(1,i,tt,gen) + \
+ELc(1,i,tt,gen)*FR(1,i,tt,gen))*pbp2(tt,gen)))/(16.*pi) -
+ - (Alfas*SType*(-2*(FL(1,i,tt,gen)*((-xd1 + xd11 + xd12 + \
+xd13)*ER(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) +
+ - ELc(1,i,tt,gen)*(4*xd00 + (xd1 + xd11 + 2*xd12 + 2*xd13 + \
+xd2 + xd22 + 2*xd23 + xd3 + xd33)*Mf(tt,gen)**2 + xd11*MNeu(1)**2)) +
+ - FR(1,i,tt,gen)*((-xd1 + xd11 + xd12 + \
+xd13)*ELc(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) +
+ - ER(1,i,tt,gen)*(4*xd00 + (xd1 + xd11 + 2*xd12 + 2*xd13 + \
+xd2 + xd22 + 2*xd23 + xd3 + xd33)*Mf(tt,gen)**2 + xd11*MNeu(1)**2))) -
+ - 2*xd0*(ELc(1,i,tt,gen)*FL(1,i,tt,gen) + \
+ER(1,i,tt,gen)*FR(1,i,tt,gen))*pbp2(tt,gen)))/(16.*pi)\
+\>", "Output",
+ CellChangeTimes->{3.625466132729841*^9, 3.62546861017301*^9,
+ 3.625551249508636*^9, 3.62555297064575*^9, 3.625555717631967*^9,
+ 3.625562360818104*^9, 3.625562460406558*^9, 3.6255708883151703`*^9,
+ 3.625913998113575*^9, 3.653042406057294*^9, 3.653043358106743*^9,
+ 3.653043663233596*^9, 3.6531092744548473`*^9, 3.653109395993301*^9,
+ 3.665827814173439*^9, 3.6658352908002777`*^9, 3.665835386216646*^9,
+ 3.6658994995604277`*^9}]
+}, Open ]]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Box B2", "Section",
+ CellChangeTimes->{{3.6254707548495703`*^9, 3.625470756921899*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Subsection",
+ CellChangeTimes->{{3.6254707684423237`*^9, 3.625470769249484*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ubar2", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p2", ",", "m2"}], "]"}]}], ";", " ",
+ RowBox[{"ua", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pa", ",", "ma"}], "]"}]}], ";",
+ RowBox[{"ubar1", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p1", ",", "m1"}], "]"}]}], ";", " ",
+ RowBox[{"ub", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pb", ",", " ", "mb"}], "]"}]}], ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain1", " ", "=", " ",
+ RowBox[{
+ "ubar2", ".", "Drei", ".", "mG", ".", "Vier", ".", "ub"}]}]], "Input",
+ CellChangeTimes->{{3.6259156617510347`*^9, 3.625915694985009*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ ")"}], ".", "mG", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.62591569581607*^9, 3.625981739304659*^9,
+ 3.626067426588866*^9, 3.652673161995844*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain2", " ", "=", " ",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pa", "]"}], " ", "+", " ",
+ RowBox[{"DiracSlash", "[", "pb", "]"}], "+", "mq"}], ")"}], ".", "Eins",
+ ".", "ua"}]}]], "Input",
+ CellChangeTimes->{{3.6259157242812767`*^9, 3.6259157401748877`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259157407798853`*^9, 3.625981739930626*^9,
+ 3.6260674276487226`*^9, 3.652673162609928*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain3", " ", "=", " ",
+ RowBox[{"ubar2", ".", "Drei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Vier", ".",
+ "ub"}]}]], "Input",
+ CellChangeTimes->{{3.6259157642653027`*^9, 3.6259157743929253`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625915782321209*^9, 3.625981740615539*^9,
+ 3.626067432045326*^9, 3.6526731631851892`*^9}]
+}, Open ]],
+
+Cell["\<\
+Minus signs in chain4 and chain5 are due to -q in fermion propagator.\
+\>", "Text",
+ CellChangeTimes->{{3.62598167965589*^9, 3.625981706895875*^9}, {
+ 3.625981741097678*^9, 3.625981742920375*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain4", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Eins", ".",
+ "ua"}]}]}]], "Input",
+ CellChangeTimes->{{3.625915789087606*^9, 3.625915808769886*^9},
+ 3.625915876657054*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}]}], TraditionalForm]], "Output",\
+
+ CellChangeTimes->{3.625915812269375*^9, 3.625915882945051*^9,
+ 3.6259817453907013`*^9, 3.6260674381109858`*^9, 3.6526731659825783`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain5", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".", "Eins", ".",
+ "ua"}]}]}]], "Input",
+ CellChangeTimes->{{3.625915838103277*^9, 3.625915842472439*^9},
+ 3.625915877251523*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}]}], TraditionalForm]], "Output",\
+
+ CellChangeTimes->{3.625915843187273*^9, 3.625915883880906*^9,
+ 3.6259817460638123`*^9, 3.6260674390110703`*^9, 3.652673167207*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Codeready", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",",
+ RowBox[{"mG", "\[Rule]", "MGl"}], ",", " ",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g2L", " ", "\[Rule]",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g3L", "\[Rule]",
+ RowBox[{"JL", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g3R", "\[Rule]",
+ RowBox[{"JR", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g4R", "\[Rule]",
+ RowBox[{"IR", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g4L", " ", "\[Rule]",
+ RowBox[{"IL", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.62591645978354*^9, 3.625916497943181*^9}, {
+ 3.6259165295838623`*^9, 3.6259165682328444`*^9}, {3.6259867376569557`*^9,
+ 3.625986741895039*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "(", "1", ")"}]}], ",",
+ RowBox[{"mG", "\[Rule]", "MGl"}], ",",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2L", "\[Rule]",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g3L", "\[Rule]",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g3R", "\[Rule]",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g4R", "\[Rule]",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g4L", "\[Rule]",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259165688838577`*^9, 3.6259817467616796`*^9,
+ 3.6259867427562323`*^9, 3.626067440756269*^9, 3.6526731687983*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drho", "=", " ",
+ RowBox[{
+ RowBox[{"xd1", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd2", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd3", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", " ", "\[Rho]"}],
+ "]"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.625916278363283*^9, 3.625916312241869*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"xd1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], "+",
+ RowBox[{"xd3", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"xd2", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625916312660441*^9, 3.625981747387697*^9,
+ 3.626067470442799*^9, 3.652673171337164*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drhosigma", "=", " ",
+ RowBox[{
+ RowBox[{"xd00", " ",
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd33", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Sigma]"}], "]"}]}], "+", " ",
+ RowBox[{"xd12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+",
+ " ", "\[IndentingNewLine]",
+ RowBox[{"xd13",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ",
+ "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Rho]"}], "]"}]}]}],
+ ")"}]}], " ", "+", " ", "\[IndentingNewLine]",
+ RowBox[{"xd23",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ",
+ "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}], ",", "\[Rho]"}], "]"}]}]}],
+ ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.62591630782108*^9, 3.625916413061017*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+",
+ RowBox[{"xd13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd33", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd22", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259164171764717`*^9, 3.625981748069598*^9,
+ 3.6260674799264393`*^9, 3.6526731724342823`*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D0 terms", "Subsection",
+ CellChangeTimes->{{3.625470771920247*^9, 3.625470772872839*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD0", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", " ",
+ RowBox[{
+ RowBox[{"xd0", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"chain1", ".", "chain2"}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "murule"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.625981788758131*^9, 3.625981794105131*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}]}], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625981807751281*^9, 3.626067496563904*^9}]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD0", " ", "=", " ",
+ RowBox[{"StartD0", "/.", "SortoutLorentzStructures3"}]}]], "Input",
+ CellChangeTimes->{{3.6259823800977488`*^9, 3.6259823962212343`*^9}, {
+ 3.625982452500963*^9, 3.625982456189925*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.6259823919082537`*^9, 3.625982397149303*^9},
+ 3.625982460166314*^9, 3.6259827451124887`*^9, 3.625982817392129*^9,
+ 3.6259830643693247`*^9, 3.6259832029652*^9, 3.6259832599786587`*^9,
+ 3.626067513513565*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho] Terms", "Subsection",
+ CellChangeTimes->{{3.625470775297299*^9, 3.6254707802737217`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", " ",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain2"}], " ", ")"}]}], " ", "+", " ",
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain1", ".", "chain4"}], ")"}]}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.625983379289907*^9, 3.625983388018523*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625983401137442*^9, 3.6260675622615767`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]", "]"}], "/.",
+ "SortoutLorentzStructures3"}]}]], "Input",
+ CellChangeTimes->{{3.62598342933456*^9, 3.625983434090261*^9}, {
+ 3.625983465827105*^9, 3.6259834891467876`*^9}, {3.6259845696658*^9,
+ 3.625984574709511*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625983440573863*^9, 3.625983495266831*^9,
+ 3.625983613416943*^9, 3.625984200131782*^9, 3.625984330320065*^9,
+ 3.625984426115252*^9, 3.625984581043947*^9, 3.626067567322508*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho]\[Sigma] Terms", "Subsection",
+ CellChangeTimes->{{3.625470783491147*^9, 3.6254707886551847`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Drhosigma",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain5"}], " ", ")"}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.6259844831509743`*^9, 3.625984489424461*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "pa"}], "-", "pb"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984497145364*^9, 3.6259848685697937`*^9,
+ 3.6260675743411903`*^9, 3.6526731828593483`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]\[Sigma]", "]"}], "/.",
+ "murule"}]], "Input",
+ CellChangeTimes->{{3.625984540479665*^9, 3.6259845424287024`*^9}, {
+ 3.625984648931429*^9, 3.625984650660887*^9}, 3.625984687689665*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"32", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd33", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p1",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pa",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984552559655*^9, 3.625984593887561*^9,
+ 3.625984657348662*^9, 3.625984695799453*^9, 3.625984874861145*^9,
+ 3.625985025287835*^9, 3.626067579979107*^9, 3.65267319707668*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{"%", "/.", "SortoutLorentzStructures3"}]}]], "Input",
+ CellChangeTimes->{{3.625984702701344*^9, 3.6259847124275846`*^9}, {
+ 3.6259850018795757`*^9, 3.625985015082892*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984713529788*^9, 3.6259848752949057`*^9,
+ 3.625985025593197*^9, 3.62606758031211*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Final result", "Subsection",
+ CellChangeTimes->{{3.625470790653159*^9, 3.6254707993916273`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FinalB2", " ", "=", " ",
+ RowBox[{
+ "FinalD0", " ", "+", " ", "FinalD\[Rho]", " ", "+", " ",
+ "FinalD\[Rho]\[Sigma]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625984907389515*^9, 3.625984907483933*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "FinalB2", "]"}]], "Input",
+ CellChangeTimes->{{3.625984916063054*^9, 3.625984921781796*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "-",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g4L", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "+",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}],
+ "-",
+ RowBox[{"g2L", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "+",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "-",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g4R", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}]}], ")"}]}]}], ")"}]}],
+ "-",
+ RowBox[{"g2R", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259849251991987`*^9, 3.625985031289845*^9,
+ 3.625986752428103*^9, 3.626067592569935*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"AType", ",", "SType"}], "}"}]}], "]"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00"}], "-",
+
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00"}], "-",
+
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00"}], "+",
+
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00"}]}],
+ ")"}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ "+",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "+",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984952725094*^9, 3.625985037668517*^9,
+ 3.625986753505628*^9, 3.626067593162537*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "Codeready"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["pi", "2"]}]],
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"xd00", " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], "+",
+ RowBox[{"xd00", " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{"xd00", " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"xd00", " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["pi", "2"]}]],
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ")"}],
+ " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625984964721087*^9, 3.6259850503486433`*^9,
+ 3.625986756751162*^9, 3.6260675940044327`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.625985064700026*^9, 3.625985068906664*^9}}],
+
+Cell["\<\
+ (AType*(-(xd00*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)\
+) + xd00*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen) +
+ - xd00*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen) - \
+xd00*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)))/(64.*pi**2) + \
+
+ - (SType*(-(ELc(1,j,tt,gen)*FL(1,i,tt,gen)*Mf(tt,gen)*(JR(i,tt,gen)*(-(\
+MGl*xd0*IR(j,tt,gen)) + (xd1 + xd2 + xd3)*IL(j,tt,gen)*Mf(tt,gen)) +
+ - JL(i,tt,gen)*(-(MGl*xd0*IL(j,tt,gen)) + (xd1 + xd2 + \
+xd3)*IR(j,tt,gen)*Mf(tt,gen)))) -
+ - \
+ER(1,j,tt,gen)*FR(1,i,tt,gen)*Mf(tt,gen)*(JR(i,tt,gen)*(-(MGl*xd0*IR(j,tt,gen)\
+) + (xd1 + xd2 + xd3)*IL(j,tt,gen)*Mf(tt,gen)) +
+ - JL(i,tt,gen)*(-(MGl*xd0*IL(j,tt,gen)) + (xd1 + xd2 + \
+xd3)*IR(j,tt,gen)*Mf(tt,gen))) + MGl*(xd0 + \
+xd3)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JL(i,tt,gen)*MNeu(1) +
+ - MGl*(xd0 + \
+xd3)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JL(i,tt,gen)*MNeu(1) + \
+MGl*(xd0 + \
+xd3)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JR(i,tt,gen)*MNeu(1) +
+ - MGl*(xd0 + \
+xd3)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JR(i,tt,gen)*MNeu(1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)*Mf(tt,gen)*\
+MNeu(1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)*Mf(tt,gen)*\
+MNeu(1)))/(64.*pi**2)\
+\>", "Output",
+ CellChangeTimes->{3.6259850698836107`*^9, 3.625986758249692*^9,
+ 3.626067594859873*^9}]
+}, Open ]]
+}, Closed]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Box B3", "Section",
+ CellChangeTimes->{{3.6253800167039537`*^9, 3.6253800177985477`*^9}, {
+ 3.625470747571538*^9, 3.625470748120454*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Subsection",
+ CellChangeTimes->{{3.625470200629331*^9, 3.625470201834923*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ubar2", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p2", ",", "m2"}], "]"}]}], ";", " ",
+ RowBox[{"ua", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pa", ",", "ma"}], "]"}]}], ";",
+ RowBox[{"ubar1", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p1", ",", "m1"}], "]"}]}], ";", " ",
+ RowBox[{"ub", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pb", ",", " ", "mb"}], "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625470368194413*^9, 3.625470376713516*^9}, {
+ 3.6254704077065573`*^9, 3.625470440537447*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain1", " ", "=", " ",
+ RowBox[{"ubar2", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "p2", "]"}], "+", "mq"}], ")"}], ".", "Eins",
+ ".", "ua"}]}]], "Input",
+ CellChangeTimes->{{3.62547048212044*^9, 3.625470533171832*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470535737146*^9, 3.625550701230254*^9,
+ 3.625552977555921*^9, 3.6255557437373543`*^9, 3.625562598774719*^9,
+ 3.6255709087545767`*^9, 3.62557097848352*^9, 3.6259140077621517`*^9,
+ 3.653044725482545*^9, 3.6658996382924767`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain2", " ", "=", " ",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"DiracSlash", "[", "pb", "]"}], "+", "mq"}], ")"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "ub"}]}]], "Input",
+ CellChangeTimes->{{3.625470557485593*^9, 3.625470587584016*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6254705907775*^9, 3.625550701960298*^9,
+ 3.625552978108302*^9, 3.6255557442298937`*^9, 3.625562599475512*^9,
+ 3.625570909486326*^9, 3.625570979058633*^9, 3.6259140083650846`*^9,
+ 3.6530447261402187`*^9, 3.665899639140292*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain3", " ", "=", " ",
+ RowBox[{"ubar2", ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Eins", ".",
+ "ua"}]}]], "Input",
+ CellChangeTimes->{{3.6254706413015537`*^9, 3.625470657513546*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pa", ",", "ma", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470664948099*^9, 3.625550702554963*^9,
+ 3.625552978705851*^9, 3.625555745076521*^9, 3.6255626001266537`*^9,
+ 3.625570910059145*^9, 3.625570979684875*^9, 3.625914008875667*^9,
+ 3.653044726753985*^9, 3.665899639962592*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain4", " ", "=", " ",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "ub"}]}]], "Input",
+ CellChangeTimes->{{3.625470683218503*^9, 3.625470703972258*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470709357543*^9, 3.62555070325313*^9,
+ 3.625552979296555*^9, 3.625555745537071*^9, 3.625562600749061*^9,
+ 3.625570910615279*^9, 3.625570980249308*^9, 3.6259140094220448`*^9,
+ 3.6530447272962523`*^9, 3.6658996407783537`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain5", " ", "=", " ",
+ RowBox[{"ubar1", ".", "Zwei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}], ".",
+ RowBox[{"DiracMatrix", "[", "\[Mu]", "]"}], ".", "ub"}]}]], "Input",
+ CellChangeTimes->{{3.625470719226307*^9, 3.625470724374407*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p1", ",", "m1", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470725480338*^9, 3.625550704117882*^9,
+ 3.625552979851006*^9, 3.6255557461781473`*^9, 3.625562601363467*^9,
+ 3.6255709111408577`*^9, 3.625570980892461*^9, 3.625914009973055*^9,
+ 3.653044727801319*^9, 3.6658996417463713`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Codeready", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",", " ",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g2L", " ", "\[Rule]",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}]}],
+ "}"}]}]], "Input",
+ CellChangeTimes->{{3.625470830182066*^9, 3.625470847672021*^9}, {
+ 3.6255625787442217`*^9, 3.6255625930042877`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "(", "1", ")"}]}], ",",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2L", "\[Rule]",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625470848813343*^9, 3.625550704861367*^9,
+ 3.625552980328117*^9, 3.6255557467891827`*^9, 3.625562602665963*^9,
+ 3.625570911769747*^9, 3.625570981473147*^9, 3.625914010643244*^9,
+ 3.6530447283223248`*^9, 3.665899642743115*^9}]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"Drho", "=", " ",
+ RowBox[{
+ RowBox[{"xd1", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd2", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd3", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", " ", "\[Rho]"}], "]"}]}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625571007962538*^9, 3.625571008648773*^9}, {
+ 3.625571048633156*^9, 3.625571048740608*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drhosigma", "=", " ",
+ RowBox[{
+ RowBox[{"xd00", " ",
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd33", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], "+", " ",
+ RowBox[{"xd12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"xd13",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"p2", "-", "pa"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"xd23",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"pb", ",", "\[Rho]"}], "]"}]}]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.6255710173324614`*^9, 3.62557106970369*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+",
+ RowBox[{"xd13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd11", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"p2", "-", "pa"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd33", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255710346991673`*^9, 3.6255710716053057`*^9,
+ 3.6259140116705227`*^9, 3.653044729464416*^9, 3.665899645497127*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["\[LineSeparator]D0 Terms", "Subsection",
+ CellChangeTimes->{{3.62546576476748*^9, 3.6254657712429934`*^9},
+ 3.653044729905669*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{" ",
+ RowBox[{"StartD0", " ", "=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{"-", " ", "xd0"}], " ",
+ RowBox[{"Alfas", "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"chain1", ".", "chain2"}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "massrules"}], "/.", "prule"}]}]}]], "Input",
+ CellChangeTimes->{
+ 3.625549224689571*^9, 3.625549379429364*^9, {3.6255494365429688`*^9,
+ 3.625549442797769*^9}, {3.625550572895815*^9, 3.625550577600449*^9}, {
+ 3.6658996507047977`*^9, 3.6658996523050547`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "4"]}], " ", "g1L", " ", "g2L", " ", "mq"}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "mq", " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "mq"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "mq"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "mq"}], "4"]}], ")"}], " ", "xd0",
+ " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L"}], "4"], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R"}], "4"], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R"}], "4"]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], "\[Pi]"]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6255492463868313`*^9, 3.625549381030746*^9, {3.625549440786477*^9,
+ 3.625549444319077*^9}, 3.6255505790000763`*^9, 3.625550707953479*^9,
+ 3.62555298790516*^9, 3.625555759208891*^9, 3.625562614987434*^9,
+ 3.625571232711402*^9, 3.6259145111932*^9, 3.653044737569665*^9, {
+ 3.665899654779006*^9, 3.665899678360504*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6658996828136787`*^9, 3.6658996907508907`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.665899692055435*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructures2newp"}]], "Input",
+ CellChangeTimes->{{3.62554954561272*^9, 3.625549554361992*^9},
+ 3.625550550123505*^9, {3.6255505830204277`*^9, 3.6255505846351843`*^9}, {
+ 3.6658996671994133`*^9, 3.6658996675593567`*^9}, 3.6658996979194307`*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd0", " ",
+
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255495558003063`*^9, 3.625550585500736*^9,
+ 3.625550711829281*^9, 3.6255529943601017`*^9, 3.625555759390747*^9,
+ 3.625562615215798*^9, 3.625571233470749*^9, 3.62591451143618*^9,
+ 3.653044737773532*^9, 3.6658996686225033`*^9, 3.6658997005984488`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD0", " ", "=", " ",
+ RowBox[{"%", "/.", "FierzTrafo"}]}]], "Input",
+ CellChangeTimes->{{3.6255506154508457`*^9, 3.625550624660131*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd0", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625550625196857*^9, 3.625550713067741*^9,
+ 3.625552997279407*^9, 3.625555759717927*^9, 3.625562616737558*^9,
+ 3.625571234543144*^9, 3.62591451166124*^9, 3.653044738560134*^9,
+ 3.665899707274642*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho] Terms", "Subsection",
+ CellChangeTimes->{3.6254657824696617`*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", " ", "Alfas"}], "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Drho", " ",
+ RowBox[{"chain3", ".", "chain2"}]}], " ", "+", " ",
+ RowBox[{"Drho", " ",
+ RowBox[{"chain1", ".", "chain4"}]}]}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "massrules"}], " ", "/.", "prule"}]}]], "Input",
+ CellChangeTimes->{{3.6255540382009974`*^9, 3.625554093599063*^9}, {
+ 3.62555412376963*^9, 3.625554134579246*^9}, {3.6658997188154993`*^9,
+ 3.665899721270363*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625554143382416*^9, 3.625555776220944*^9, 3.62556262793925*^9, {
+ 3.62557124383886*^9, 3.625571267858328*^9}, 3.625914520722487*^9,
+ 3.653044746637443*^9, {3.6658997167893057`*^9, 3.665899723111826*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]", "]"}]], "Input",
+ CellChangeTimes->{{3.625554215196854*^9, 3.6255542298631*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.625554216121532*^9, 3.6255542324690228`*^9},
+ 3.6255545462234364`*^9, 3.6255546851747828`*^9, 3.6255548765534363`*^9,
+ 3.625554970208535*^9, 3.625555777747737*^9, 3.6255626310399847`*^9,
+ 3.6255712716863823`*^9, 3.625914524777499*^9, 3.6530447489515676`*^9, {
+ 3.665899726425324*^9, 3.665899739447802*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructures2newp"}]], "Input",
+ CellChangeTimes->{{3.625554312291984*^9, 3.6255543256773243`*^9}, {
+ 3.665899732463441*^9, 3.665899733286635*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ",
+ "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ",
+ "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ",
+ "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ",
+ "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ",
+ "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ",
+ "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ",
+ "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ",
+ "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "PTypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd1"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd2"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"], " ", "STypeWrongOrder", " ", "xd3"}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625554326502562*^9, 3.62555455113966*^9, 3.6255546909322033`*^9,
+ 3.625554882724928*^9, 3.6255549754611998`*^9, 3.625555784031384*^9,
+ 3.625562632667982*^9, 3.6255712757725077`*^9, 3.625914524916767*^9,
+ 3.6530447490958443`*^9, {3.665899728092689*^9, 3.665899742555204*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]", " ", "=",
+ RowBox[{
+ RowBox[{"%", "/.", "FierzTrafo"}], "/.", "massrules"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1", " ",
+
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd1", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd3", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255543901824207`*^9, 3.62555456282705*^9,
+ 3.625554979480995*^9, 3.625555785133994*^9, 3.62556263419094*^9,
+ 3.625571282073535*^9, 3.6259145249965677`*^9, 3.653044749922812*^9,
+ 3.6658997483466177`*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho]\[Sigma] Terms", "Subsection",
+ CellChangeTimes->{3.625465790278585*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", " ", "Alfas"}], "/",
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Drhosigma",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain5"}], " ", ")"}]}], ",", "D"}],
+ "]"}]}], "]"}], "/.", "massrules"}], " ", "/.", "prule"}]}]], "Input",
+ CellChangeTimes->{{3.6658997556320753`*^9, 3.665899757955185*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pq",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pq", "-", "pNeu"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625555235870516*^9, 3.625555792946102*^9,
+ 3.625562642959251*^9, 3.625571334748061*^9, 3.625914613204002*^9,
+ 3.653044758018059*^9, 3.653044963510625*^9, 3.66589975897255*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]\[Sigma]", "]"}], "/.",
+ "murule"}]], "Input",
+ CellChangeTimes->{{3.6255552983803873`*^9, 3.625555300685236*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ TagBox[
+ FrameBox[GridBox[{
+ {
+ ItemBox[
+ TagBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ TemplateBox[{"1"},
+ "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,
+ FrameStyle -> GrayLevel[0.75], RoundingRadius -> 7]& )], " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ TemplateBox[{"1"},
+ "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, FrameStyle ->
+ GrayLevel[0.75], RoundingRadius -> 7]& )],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ TemplateBox[{"555"},
+ "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, FrameStyle ->
+ GrayLevel[0.75], RoundingRadius -> 7]& )], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pq",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pNeu",
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}],
+ Short[#, 5]& ],
+ BaseStyle->{Deployed -> False},
+ StripOnInput->False]},
+ {GridBox[{
+ {
+ TagBox[
+ TooltipBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource[
+ "FEStrings", "sizeBriefExplanation"], TraditionalForm],
+ ImageSizeCache->{68., {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->{64., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ TraditionalForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 182, 22680334536601698837, 5/2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ TraditionalForm],
+ ImageSizeCache->{70., {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[
+ Identity, 182, 22680334536601698837, 5 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ TraditionalForm],
+ ImageSizeCache->{54., {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[
+ Identity, 182, 22680334536601698837, Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ TraditionalForm],
+ ImageSizeCache->{94., {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[182]], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625555275387726*^9, 3.625555311210215*^9,
+ 3.6255554223003283`*^9, 3.6255556234096413`*^9, 3.625555810967856*^9,
+ 3.625555886018395*^9, 3.625555954691062*^9, 3.625562652989259*^9,
+ 3.625571348243596*^9, 3.625914635246326*^9, 3.6530447700688353`*^9,
+ 3.653044975409461*^9, 3.665899771999103*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "SortoutLorentzStructures2newp"}]], "Input",
+ CellChangeTimes->{{3.62555533970471*^9, 3.625555347988142*^9},
+ 3.6255554086704407`*^9, {3.665899767222726*^9, 3.665899767662735*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd11",
+ " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "VTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "VTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ "xd11", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ "xd12", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "PTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "STypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ", "VTypeWrongOrder", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ "xd13", " ", "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "PTypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ", "STypeWrongOrder"}], "+", "TTypeWrongOrder"}], ")"}],
+ " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd11"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd12"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd13"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd22"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd23"}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "PTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "STypeWrongOrder", " ", "xd33"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "VTypeWrongOrder", " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "ATypeWrongOrder", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd11", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd12", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd13", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd22", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd23", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"2", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "PTypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2L", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2L", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1L", " ", "g2R", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{
+ "Alfas", " ", "g1R", " ", "g2R", " ", "STypeWrongOrder", " ", "xd33", " ",
+ SuperscriptBox[
+ FormBox["pq",
+ TraditionalForm], "2"]}],
+ RowBox[{"4", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625555349075697*^9, 3.625555427133422*^9,
+ 3.62555562363573*^9, 3.6255558111221743`*^9, 3.625555886273706*^9,
+ 3.625555954876986*^9, 3.625562653169735*^9, 3.62557134853373*^9,
+ 3.625914635503572*^9, 3.65304477024918*^9, 3.653044975570483*^9,
+ 3.66589977228971*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"%", "/.", "FierzTrafo"}], "/.", "massrules"}]}]], "Input",
+ CellChangeTimes->{{3.625555890369458*^9, 3.625555897440041*^9},
+ 3.625555928536271*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ SuperscriptBox["mNeu", "2"]}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd11", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd12", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}], " ", "xd13", " ", "mNeu"}],
+ RowBox[{"4", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13", " ",
+ "mNeu"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["AType", "4"]}], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "4"], "-",
+ FractionBox["SType", "4"]}], ")"}]}], "-",
+ RowBox[{"3", " ", "SType"}]}], ")"}], " ", "xd00"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd11"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd12"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd13"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd22"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd23"}],
+ RowBox[{"8", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "-", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2L", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "-",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1L", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]], "+",
+ FractionBox[
+ RowBox[{"Alfas", " ", "g1R", " ", "g2R", " ",
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["AType", "2"], "+", "SType"}], ")"}], " ", "xd33"}],
+ RowBox[{"16", " ", "\[Pi]"}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.625555898316545*^9, {3.625555935088636*^9, 3.625555955075028*^9},
+ 3.625562653397596*^9, 3.625571348812758*^9, 3.625914635567712*^9,
+ 3.6530447704098597`*^9, 3.653044975728684*^9, 3.665899772408741*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Final result", "Subsection",
+ CellChangeTimes->{3.6254657990367603`*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FinalB3", " ", "=", " ",
+ RowBox[{
+ "FinalD0", " ", "+", " ", "FinalD\[Rho]", " ", "+", " ",
+ "FinalD\[Rho]\[Sigma]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625561408213842*^9, 3.6255614083087883`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "FinalB3", "]"}]], "Input",
+ CellChangeTimes->{{3.625561415636224*^9, 3.625561415815188*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R"}], "+",
+ RowBox[{"g1R", " ", "g2L"}]}], ")"}]}], "-",
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2L"}], "+",
+ RowBox[{"g1R", " ", "g2R"}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1"}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1"}]}],
+ ")"}]}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"g2R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+", "xd13"}],
+ ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+", "xd13"}],
+ ")"}]}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6255614170115843`*^9, 3.625562661854707*^9,
+ 3.6255713631909523`*^9, 3.625914673887027*^9, 3.653044771164756*^9,
+ 3.6530449762002983`*^9, 3.665899792198765*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"AType", ",", "SType"}], "}"}]}], "]"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ", "AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2R"}], "+",
+ RowBox[{"g1R", " ", "g2L"}]}], ")"}]}], "+",
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "g2L", " ", "mNeu", " ", "mq", " ", "xd1"}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ", "g2R", " ", "mNeu", " ", "mq", " ", "xd1"}]}],
+ ")"}]}]}], ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]"}]],
+ RowBox[{"Alfas", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ", "g2L"}], "+",
+ RowBox[{"g1R", " ", "g2R"}]}], ")"}]}]}], "-",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{"g2R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+", "xd13"}],
+ ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+", "xd13"}],
+ ")"}]}], "+",
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["mNeu", "2"], " ", "xd11"}], "+",
+ RowBox[{
+ SuperscriptBox["mq", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625561426914452*^9, 3.625562663901211*^9,
+ 3.625571364969079*^9, 3.625914674226596*^9, 3.653044771378222*^9,
+ 3.653044976389133*^9, 3.665899795683453*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "Codeready"}]], "Input",
+ CellChangeTimes->{{3.625561441523443*^9, 3.625561445434843*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "pi"}]],
+ RowBox[{"Alfas", " ", "AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"MNeu", "(", "1", ")"}], "2"], " ", "xd11"}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd1", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "xd1"}], "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+",
+ RowBox[{"2", " ", "xd2"}], "+", "xd22", "+",
+ RowBox[{"2", " ", "xd23"}], "+",
+ RowBox[{"2", " ", "xd3"}], "+", "xd33"}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"MNeu", "(", "1", ")"}], "2"], " ", "xd11"}], "+",
+ RowBox[{"2", " ", "xd00"}]}], ")"}]}], "-",
+ RowBox[{"2", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ", "xd1", " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "pi"}]],
+ RowBox[{"Alfas", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"MNeu", "(", "1", ")"}], "2"], " ", "xd11"}], "+",
+
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+",
+ "xd13"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "xd1"}], "+", "xd11", "+", "xd12", "+",
+ "xd13"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd11", "+",
+ RowBox[{"2", " ", "xd12"}], "+",
+ RowBox[{"2", " ", "xd13"}], "+", "xd2", "+", "xd22", "+",
+
+ RowBox[{"2", " ", "xd23"}], "+", "xd3", "+", "xd33"}],
+ ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"MNeu", "(", "1", ")"}], "2"], " ", "xd11"}], "+",
+
+ RowBox[{"4", " ", "xd00"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], "-",
+ RowBox[{"2", " ", "xd0", " ",
+ RowBox[{"pbp2", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625561446312736*^9, 3.6255626648180447`*^9,
+ 3.62557136634932*^9, 3.6259146768456573`*^9, 3.6530447748139067`*^9,
+ 3.653044976600382*^9, 3.665899797813676*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.625561458524835*^9, 3.625561462586928*^9}}],
+
+Cell["\<\
+ -(Alfas*AType*(ER(1,i,tt,gen)*(-2*xd1*FR(1,i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) +
+ - FL(1,i,tt,gen)*(2*xd00 + (2*xd1 + xd11 + 2*xd12 + 2*xd13 + \
+2*xd2 + xd22 + 2*xd23 + 2*xd3 + xd33)*Mf(tt,gen)**2 + xd11*MNeu(1)**2)) +
+ - ELc(1,i,tt,gen)*(-2*xd1*FL(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) +
+ - FR(1,i,tt,gen)*(2*xd00 + (2*xd1 + xd11 + 2*xd12 + 2*xd13 + \
+2*xd2 + xd22 + 2*xd23 + 2*xd3 + xd33)*Mf(tt,gen)**2 + xd11*MNeu(1)**2)) +
+ - 2*xd0*(ER(1,i,tt,gen)*FL(1,i,tt,gen) + \
+ELc(1,i,tt,gen)*FR(1,i,tt,gen))*pbp2(tt,gen)))/(16.*pi) -
+ - (Alfas*SType*(-2*(ELc(1,i,tt,gen)*((-xd1 + xd11 + xd12 + \
+xd13)*FR(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) +
+ - FL(1,i,tt,gen)*(4*xd00 + (xd1 + xd11 + 2*xd12 + 2*xd13 + \
+xd2 + xd22 + 2*xd23 + xd3 + xd33)*Mf(tt,gen)**2 + xd11*MNeu(1)**2)) +
+ - ER(1,i,tt,gen)*((-xd1 + xd11 + xd12 + \
+xd13)*FL(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) +
+ - FR(1,i,tt,gen)*(4*xd00 + (xd1 + xd11 + 2*xd12 + 2*xd13 + \
+xd2 + xd22 + 2*xd23 + xd3 + xd33)*Mf(tt,gen)**2 + xd11*MNeu(1)**2))) -
+ - 2*xd0*(ELc(1,i,tt,gen)*FL(1,i,tt,gen) + \
+ER(1,i,tt,gen)*FR(1,i,tt,gen))*pbp2(tt,gen)))/(16.*pi)\
+\>", "Output",
+ CellChangeTimes->{3.6255614636656227`*^9, 3.62556266969569*^9,
+ 3.6255713678085947`*^9, 3.6259146810537*^9, 3.653044776077734*^9,
+ 3.653044976673811*^9, 3.6658997990097017`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"Simplify", "[", "FinalB1", "]"}], " ", "\[Equal]", " ",
+ RowBox[{"Simplify", "[", "FinalB3", "]"}]}]], "Input",
+ CellChangeTimes->{{3.665899812877881*^9, 3.665899824637747*^9}, {
+ 3.665899891842008*^9, 3.665899894833639*^9}, {3.665899926953752*^9,
+ 3.6658999782031317`*^9}}],
+
+Cell[BoxData[
+ FormBox["True", TraditionalForm]], "Output",
+ CellChangeTimes->{3.665899825475071*^9, 3.665899895622181*^9,
+ 3.665899946616531*^9, 3.6658999792446957`*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Box B4", "Section",
+ CellChangeTimes->{{3.625380024487172*^9, 3.625380027755267*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Setup", "Subsection",
+ CellChangeTimes->{{3.625986580338911*^9, 3.6259865814036913`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ubar", " ", "=", " ",
+ RowBox[{"SpinorUBar", "[",
+ RowBox[{"p2", ",", "m2"}], "]"}]}], ";", " ",
+ RowBox[{"v", " ", "=", " ",
+ RowBox[{"SpinorV", "[",
+ RowBox[{"p1", ",", "m1"}], "]"}]}], ";",
+ RowBox[{"vbar", " ", "=", " ",
+ RowBox[{"SpinorVBar", "[",
+ RowBox[{"pa", ",", "ma"}], "]"}]}], ";", " ",
+ RowBox[{"u", " ", "=", " ",
+ RowBox[{"SpinorU", "[",
+ RowBox[{"pb", ",", " ", "mb"}], "]"}]}], ";"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain1", " ", "=", " ",
+ RowBox[{"ubar", ".", "Drei", ".", "mG", ".", "Vier", ".", "u"}]}]], "Input",\
+
+ CellChangeTimes->{{3.6259880944924707`*^9, 3.62598809584031*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ ")"}], ".", "mG", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988099391411*^9, 3.625989813696752*^9,
+ 3.626068029997196*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain2", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"DiracSlash", "[", "pa", "]"}]}], " ", "+", " ",
+ RowBox[{"DiracSlash", "[", "p2", "]"}], "+", "mq"}], ")"}], ".", "Zwei",
+ ".", "v"}]}]], "Input",
+ CellChangeTimes->{{3.6259881365196753`*^9, 3.6259881476297817`*^9}, {
+ 3.625988216950316*^9, 3.62598824242944*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"mq", "+",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], "-",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.625988227384362*^9, 3.625988243044595*^9},
+ 3.6259898144168453`*^9, 3.626068030776966*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain3", " ", "=", " ",
+ RowBox[{"ubar", ".", "Drei", ".",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}], ".", "Vier", ".",
+ "u"}]}]], "Input",
+ CellChangeTimes->{{3.625988121145834*^9, 3.6259881218290243`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"u\"\>", "_"],
+ TraditionalForm], "(", "p2", ",", "m2", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g3L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g3R"}]}],
+ ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g4R"}]}],
+ ")"}], ".",
+ RowBox[{"u", "(", "pb", ",", "mb", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988124678073*^9, 3.6259898150381737`*^9,
+ 3.626068031349633*^9}]
+}, Open ]],
+
+Cell["\<\
+Minus signs in chain4 and chain5 are due to -q in fermion propagator.\
+\>", "Text",
+ CellChangeTimes->{3.625988593094748*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain4", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"DiracMatrix", "[", "\[Rho]", "]"}]}], ")"}], ".", "Zwei", ".",
+ "v"}]}]], "Input",
+ CellChangeTimes->{{3.6259883228820457`*^9, 3.625988338287022*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"-",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988342631958*^9, 3.625989816867117*^9,
+ 3.626068033739518*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chain5", " ", "=", " ",
+ RowBox[{"vbar", ".", "Eins", ".",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"DiracMatrix", "[", "\[Sigma]", "]"}]}], ")"}], ".", "Zwei", ".",
+ "v"}]}]], "Input",
+ CellChangeTimes->{{3.6259883487925997`*^9, 3.625988350380797*^9}, {
+ 3.625989809697242*^9, 3.625989809887995*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FormBox[
+ OverscriptBox["\<\"v\"\>", "_"],
+ TraditionalForm], "(", "pa", ",", "ma", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g1L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g1R"}]}],
+ ")"}], ".",
+ RowBox[{"(",
+ RowBox[{"-",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"1", "-",
+ SuperscriptBox["\[Gamma]", "5"]}], ")"}], " ", "g2L"}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["\[Gamma]", "5"], "+", "1"}], ")"}], " ", "g2R"}]}],
+ ")"}], ".",
+ RowBox[{"v", "(", "p1", ",", "m1", ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988352773715*^9, 3.6259898176049137`*^9,
+ 3.626068034509392*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Codeready", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",",
+ RowBox[{"mG", "\[Rule]", "MGl"}], ",", " ",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g2L", " ", "\[Rule]",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g3L", "\[Rule]",
+ RowBox[{"JL", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g3R", "\[Rule]",
+ RowBox[{"JR", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g4R", "\[Rule]",
+ RowBox[{"IR", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g4L", " ", "\[Rule]",
+ RowBox[{"IL", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.625988687960578*^9, 3.625988721019565*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"mq", "\[Rule]",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"mNeu", "\[Rule]",
+ RowBox[{"MNeu", "(", "1", ")"}]}], ",",
+ RowBox[{"mG", "\[Rule]", "MGl"}], ",",
+ RowBox[{"\[Pi]", "\[Rule]", "pi"}], ",",
+ RowBox[{"g1L", "\[Rule]",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g1R", "\[Rule]",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2R", "\[Rule]",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g2L", "\[Rule]",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g3L", "\[Rule]",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g3R", "\[Rule]",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g4R", "\[Rule]",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], ",",
+ RowBox[{"g4L", "\[Rule]",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988729100717*^9, 3.625989825449904*^9,
+ 3.62606803557852*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drho", "=", " ",
+ RowBox[{
+ RowBox[{"xd1", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd2", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd3", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", " ", "\[Rho]"}], "]"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.625988622152185*^9, 3.62598864237996*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd3", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"xd1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"xd2", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988625875669*^9, 3.6259894862073174`*^9,
+ 3.625989826368519*^9, 3.626068036372851*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drhosigma", "=", " ",
+ RowBox[{
+ RowBox[{"xd00", " ",
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"xd33", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Rho]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Sigma]"}], "]"}]}], "+", " ",
+ RowBox[{"xd12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "+",
+ " ", "\[IndentingNewLine]",
+ RowBox[{"xd13",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "p2"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ",
+ "+", " ", "\[IndentingNewLine]",
+ RowBox[{"xd23",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Sigma]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"-", "pb"}], ",", "\[Sigma]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{
+ RowBox[{"pa", "-", "p2"}], ",", "\[Rho]"}], "]"}]}]}],
+ ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.625988646004121*^9, 3.6259886571680317`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"xd00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Rho]", "\[Sigma]"}]]}], "+",
+ RowBox[{"xd23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd33", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"xd11", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"xd22", " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["pb",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625988659253475*^9, 3.6259898279966497`*^9,
+ 3.626068037058015*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["D0 Terms", "Subsection",
+ CellChangeTimes->{3.62546581705402*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD0", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", " ",
+ RowBox[{
+ RowBox[{"xd0", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"chain1", ".", "chain2"}], ",", "D"}], "]"}]}], "]"}], "/.",
+ "murule"}], "/.", "massrules"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4R",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ FractionBox[
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1L", " ", "g2L", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1R", " ", "g2R", " ", "g3L", " ", "g4L",
+ " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1L", " ", "g2L", " ", "g3R", " ", "g4R",
+ " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "4"], " ", "g1R", " ", "g2R", " ", "g3R", " ", "g4R",
+ " ", "mq"}]}], ")"}], " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "8"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "16"]}], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "8"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "xd0", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.62598875903086*^9, 3.626068210151216*^9}]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD0", " ", "=", " ",
+ RowBox[{"StartD0", "/.", "SortoutLorentzStructures4"}]}]], "Input",
+ CellChangeTimes->{{3.625989081654478*^9, 3.625989081720195*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R"}]}], ")"}], " ", "mG", " ", "mNeu", " ", "SType", " ",
+ "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "-",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"mG", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4L", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3L", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2L", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1L", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}], "+",
+ RowBox[{
+ FractionBox["1", "16"], " ", "g1R", " ", "g2R", " ", "g3R", " ",
+ "g4R", " ", "mq"}]}], ")"}], " ", "SType", " ", "xd0"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259887720530663`*^9, 3.625988963192642*^9,
+ 3.6259890830025463`*^9, 3.626068210479266*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho] Terms", "Subsection",
+ CellChangeTimes->{3.6254658256161327`*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", " ",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain2"}], " ", ")"}]}], " ", "+", " ",
+ RowBox[{"Drho",
+ RowBox[{"(",
+ RowBox[{"chain1", ".", "chain4"}], ")"}]}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mq", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd1", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd3", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "xd2", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625989322417708*^9, 3.625989497477331*^9,
+ 3.6259898409764214`*^9, 3.626068229513276*^9}]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]", "]"}], "/.",
+ "SortoutLorentzStructures4"}]}]], "Input",
+ CellChangeTimes->{{3.625989332033409*^9, 3.625989332084134*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2L", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3L", " ", "g4R", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd1"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd2"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2R", " ", "g3R", " ", "g4L", " ",
+ SuperscriptBox["mq", "2"], " ", "SType", " ", "xd3"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.62598933913682*^9, 3.625989504362534*^9,
+ 3.625989752049004*^9, 3.625989845592903*^9, 3.62606823374788*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["D\[Rho]\[Sigma] Terms", "Subsection",
+ CellChangeTimes->{3.625465835668853*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"StartD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{
+ RowBox[{"DiracSimplify", "[",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "\[Pi]"}], ")"}], "^", "2"}]}], " ",
+ RowBox[{"ChangeDimension", "[",
+ RowBox[{
+ RowBox[{"Drhosigma",
+ RowBox[{"(",
+ RowBox[{"chain3", ".", "chain5"}], " ", ")"}]}], ",", "D"}], "]"}]}],
+ "]"}], "/.", "massrules"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ SuperscriptBox["\[Gamma]",
+ FormBox[
+ FormBox["\[Sigma]",
+ TraditionalForm],
+ TraditionalForm]], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd11", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd13", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd33", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd12", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]", "(",
+ FormBox[
+ RowBox[{"pa", "-", "p2"}],
+ TraditionalForm], ")"}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd22", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6259957917480392`*^9, 3.626068243912155*^9}]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"DiracSimplify", "[", "StartD\[Rho]\[Sigma]", "]"}], "/.",
+ "murule"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ TagBox[
+ PanelBox[GridBox[{
+ {
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
+ TraditionalForm],
+ ImageSizeCache->{332., {2., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None]},
+ {
+ ItemBox[
+ TagBox[
+ RowBox[{
+ RowBox[{"\[LeftSkeleton]", "392", "\[RightSkeleton]"}], "+",
+ FractionBox[
+ RowBox[{"g1L", " ",
+ RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}], " ",
+ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd23", " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["p2",
+ TraditionalForm], ",", "mq", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pa",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox["pb",
+ TraditionalForm], ",", "mq", ")"}]}], " ",
+ RowBox[{
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "pa"}],
+ TraditionalForm], ",", "mNeu", ")"}], ".",
+ RowBox[{"(",
+ RowBox[{
+ FormBox["\<\"\[Gamma]\"\>",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["pb",
+ TraditionalForm]}], ")"}], ".",
+ SuperscriptBox["\[Gamma]", "5"], ".",
+ RowBox[{"\[CurlyPhi]", "(",
+ FormBox[
+ RowBox[{"-", "p1"}],
+ TraditionalForm], ",", "mNeu", ")"}]}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}],
+ Short[#, 5]& ],
+ Background->GrayLevel[1],
+ BaseStyle->{Deployed -> False},
+ Frame->True,
+ FrameStyle->GrayLevel[0, 0.2],
+ StripOnInput->False]},
+ {
+ RowBox[{
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ TraditionalForm],
+ ImageSizeCache->{57., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 213, 23762809102052007478, 5/2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"], "\[ThinSpace]",
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ TraditionalForm],
+ ImageSizeCache->{63., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 213, 23762809102052007478, 5 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"], "\[ThinSpace]",
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ TraditionalForm],
+ ImageSizeCache->{46., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ Identity, 213, 23762809102052007478, Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"], "\[ThinSpace]",
+ ButtonBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ TraditionalForm],
+ ImageSizeCache->{82., {0., 9.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "Panel",
+ StripOnInput->False,
+ Background->None],
+ Appearance->Automatic,
+ ButtonFunction:>FrontEndExecute[{
+ FrontEnd`SetOptions[
+ FrontEnd`$FrontEnd,
+ FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}],
+ FrontEnd`FrontEndToken["PreferencesDialog"]}],
+ Evaluator->None,
+ Method->"Preemptive"]}]}
+ },
+ 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.2]}, "RowsIndexed" -> {}}],
+ DefaultBaseStyle->{},
+ FrameMargins->5],
+ Deploy,
+ DefaultBaseStyle->{Deployed -> True}],
+ Out[213]], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625995816582509*^9, 3.6260682500609922`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FinalD\[Rho]\[Sigma]", " ", "=", " ",
+ RowBox[{"%", "/.", "SortoutLorentzStructures4"}]}]], "Input",
+ CellChangeTimes->{{3.625995819419116*^9, 3.625995820070519*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], "+",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "AType", " ", "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd13"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd23"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "-",
+ FractionBox[
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ "SType", " ", "xd33"}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625995821307508*^9, 3.62606825042342*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["Final result", "Subsection",
+ CellChangeTimes->{3.6254658440803432`*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FinalB4", " ", "=", " ",
+ RowBox[{
+ "FinalD0", " ", "+", " ", "FinalD\[Rho]", " ", "+", " ",
+ "FinalD\[Rho]\[Sigma]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.625996053482627*^9, 3.6259960535662394`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "FinalB4", "]"}]], "Input",
+ CellChangeTimes->{{3.6259960655497303`*^9, 3.625996065683979*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g1L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "+",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "-",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g4R", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}]}], ")"}]}]}], ")"}]}],
+ "-",
+ RowBox[{"g2L", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{"g1R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g2L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "-",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g4L", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mG", " ", "mNeu", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"AType", " ", "xd00"}], "+",
+ RowBox[{"mNeu", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3",
+ "+", "xd33"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}],
+ "-",
+ RowBox[{"g2R", " ", "mq", " ", "SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625996067072982*^9, 3.62606826138727*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"AType", ",", "SType"}], "}"}]}], "]"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "xd00"}]}],
+ "+",
+ RowBox[{"g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "xd00"}], "+",
+
+ RowBox[{"g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "xd00"}], "-",
+
+ RowBox[{"g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "xd00"}]}],
+ ")"}]}],
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["\[Pi]", "2"]}]],
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"g1L", " ", "g2L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ "+",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{
+ "g1L", " ", "g2R", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "+",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4L", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3L", " ", "g4R", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4L", " ", "mNeu", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{
+ "g1R", " ", "g2L", " ", "g3R", " ", "g4R", " ", "mG", " ", "mNeu", " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g1R", " ", "g2R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g3L", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4R", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4L", " ", "mG", " ", "xd0"}]}], ")"}]}], "+",
+ RowBox[{"g3R", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g4L", " ", "mq", " ",
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}]}], "-",
+ RowBox[{"g4R", " ", "mG", " ", "xd0"}]}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625996076736911*^9, 3.626068263972814*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.", "Codeready"}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["pi", "2"]}]],
+ RowBox[{"AType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"xd00", " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], "+",
+ RowBox[{"xd00", " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{"xd00", " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"xd00", " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"64", " ",
+ SuperscriptBox["pi", "2"]}]],
+ RowBox[{"SType", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}]}], ")"}],
+ " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}],
+ ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ELc", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ "xd1", "+", "xd13", "+", "xd2", "+", "xd23", "+", "xd3", "+",
+ "xd33"}], ")"}]}], "+",
+ RowBox[{"MGl", " ",
+ RowBox[{"MNeu", "(", "1", ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"xd0", "+", "xd3"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FL", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"ER", "(",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"FR", "(",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"JL", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}], "+",
+
+ RowBox[{
+ RowBox[{"JR", "(",
+ RowBox[{"i", ",", "tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"xd1", "+", "xd2", "+", "xd3"}], ")"}], " ",
+ RowBox[{"Mf", "(",
+ RowBox[{"tt", ",", "gen"}], ")"}], " ",
+ RowBox[{"IL", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}], "-",
+ RowBox[{"MGl", " ", "xd0", " ",
+ RowBox[{"IR", "(",
+ RowBox[{"j", ",", "tt", ",", "gen"}], ")"}]}]}], ")"}]}]}],
+ ")"}]}]}], ")"}]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.625996087116222*^9, 3.626068264894517*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input"],
+
+Cell["\<\
+ (AType*(-(xd00*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)\
+) + xd00*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen) +
+ - xd00*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen) - \
+xd00*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)))/(64.*pi**2) + \
+
+ - (SType*(-(ELc(1,j,tt,gen)*FL(1,i,tt,gen)*Mf(tt,gen)*(JR(i,tt,gen)*(-(\
+MGl*xd0*IR(j,tt,gen)) + (xd1 + xd2 + xd3)*IL(j,tt,gen)*Mf(tt,gen)) +
+ - JL(i,tt,gen)*(-(MGl*xd0*IL(j,tt,gen)) + (xd1 + xd2 + \
+xd3)*IR(j,tt,gen)*Mf(tt,gen)))) -
+ - \
+ER(1,j,tt,gen)*FR(1,i,tt,gen)*Mf(tt,gen)*(JR(i,tt,gen)*(-(MGl*xd0*IR(j,tt,gen)\
+) + (xd1 + xd2 + xd3)*IL(j,tt,gen)*Mf(tt,gen)) +
+ - JL(i,tt,gen)*(-(MGl*xd0*IL(j,tt,gen)) + (xd1 + xd2 + \
+xd3)*IR(j,tt,gen)*Mf(tt,gen))) + MGl*(xd0 + \
+xd3)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JL(i,tt,gen)*MNeu(1) +
+ - MGl*(xd0 + \
+xd3)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JL(i,tt,gen)*MNeu(1) + \
+MGl*(xd0 + \
+xd3)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JR(i,tt,gen)*MNeu(1) +
+ - MGl*(xd0 + \
+xd3)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JR(i,tt,gen)*MNeu(1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IR(j,tt,gen)*JL(i,tt,gen)*Mf(tt,gen)*\
+MNeu(1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ER(1,j,tt,gen)*FL(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)*Mf(tt,gen)*MNeu(\
+1) -
+ - (xd1 + xd13 + xd2 + xd23 + xd3 + \
+xd33)*ELc(1,j,tt,gen)*FR(1,i,tt,gen)*IL(j,tt,gen)*JR(i,tt,gen)*Mf(tt,gen)*\
+MNeu(1)))/(64.*pi**2)\
+\>", "Output",
+ CellChangeTimes->{3.625996094604669*^9, 3.626068265826788*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]]
+}, Open ]]
+},
+CellGrouping->Automatic,
+WindowSize->{1672, 944},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
+ShowSelection->True,
+FrontEndVersion->"10.1 for Linux x86 (64-bit) (March 23, 2015)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[CellGroupData[{
+Cell[579, 22, 208, 3, 93, "Title"],
+Cell[790, 27, 237, 5, 34, "Text"],
+Cell[CellGroupData[{
+Cell[1052, 36, 159, 2, 65, "Section"],
+Cell[CellGroupData[{
+Cell[1236, 42, 101, 1, 44, "Subsection"],
+Cell[CellGroupData[{
+Cell[1362, 47, 168, 3, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1555, 54, 626, 13, 23, "Print"],
+Cell[2184, 69, 709, 15, 23, "Print"],
+Cell[2896, 86, 350, 6, 23, "Print"],
+Cell[3249, 94, 332, 5, 23, "Print"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[3630, 105, 344, 8, 32, "Input"],
+Cell[3977, 115, 507, 11, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[4521, 131, 344, 8, 32, "Input"],
+Cell[4868, 141, 515, 12, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[5420, 158, 144, 4, 32, "Input"],
+Cell[5567, 164, 725, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[6329, 188, 149, 4, 32, "Input"],
+Cell[6481, 194, 723, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[7241, 218, 210, 5, 32, "Input"],
+Cell[7454, 225, 556, 16, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[8047, 246, 212, 5, 32, "Input"],
+Cell[8262, 253, 550, 16, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[8849, 274, 1958, 51, 55, "Input"],
+Cell[10810, 327, 1377, 37, 37, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[12224, 369, 219, 5, 32, "Input"],
+Cell[12446, 376, 394, 9, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[12877, 390, 391, 8, 32, "Input"],
+Cell[13271, 400, 325, 8, 33, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[13645, 414, 148, 2, 36, "Subsection"],
+Cell[CellGroupData[{
+Cell[13818, 420, 22689, 555, 693, "Input"],
+Cell[36510, 977, 15058, 488, 200, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[51605, 1470, 210, 3, 32, "Input"],
+Cell[51818, 1475, 14954, 485, 200, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[66809, 1965, 1346, 37, 77, "Input"],
+Cell[68158, 2004, 14525, 461, 177, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[82720, 2470, 210, 3, 32, "Input"],
+Cell[82933, 2475, 14180, 455, 200, "Output"]
+}, Open ]],
+Cell[97128, 2933, 343, 6, 33, "Text"],
+Cell[CellGroupData[{
+Cell[97496, 2943, 1518, 36, 55, "Input"],
+Cell[99017, 2981, 834, 24, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[99888, 3010, 47070, 1378, 1749, "Input"],
+Cell[146961, 4390, 43750, 1342, 428, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[190748, 5737, 639, 17, 32, "Input"],
+Cell[191390, 5756, 46066, 1444, 451, "Output"]
+}, Open ]]
+}, Closed]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[237517, 7207, 263, 3, 65, "Section"],
+Cell[CellGroupData[{
+Cell[237805, 7214, 314, 6, 30, "Input"],
+Cell[238122, 7222, 568, 17, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[238727, 7244, 289, 7, 30, "Input"],
+Cell[239019, 7253, 425, 15, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[239481, 7273, 226, 5, 30, "Input"],
+Cell[239710, 7280, 352, 10, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[240099, 7295, 258, 5, 30, "Input"],
+Cell[240360, 7302, 607, 20, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[241004, 7327, 296, 6, 30, "Input"],
+Cell[241303, 7335, 368, 13, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[241708, 7353, 901, 28, 30, "Input"],
+Cell[242612, 7383, 942, 31, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[243591, 7419, 145, 2, 30, "Input"],
+Cell[243739, 7423, 994, 32, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[244770, 7460, 185, 3, 30, "Input"],
+Cell[244958, 7465, 172, 3, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[245167, 7473, 501, 11, 30, "Input"],
+Cell[245671, 7486, 396, 11, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[246104, 7502, 357, 6, 30, "Input"],
+Cell[246464, 7510, 439, 12, 31, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[246952, 7528, 93, 1, 51, "Section"],
+Cell[CellGroupData[{
+Cell[247070, 7533, 92, 1, 45, "Subsection"],
+Cell[247165, 7536, 481, 13, 32, "Input"],
+Cell[CellGroupData[{
+Cell[247671, 7553, 475, 10, 32, "Input"],
+Cell[248149, 7565, 1576, 42, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[249762, 7612, 650, 12, 32, "Input"],
+Cell[250415, 7626, 1678, 44, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[252130, 7675, 331, 7, 32, "Input"],
+Cell[252464, 7684, 1319, 38, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[253820, 7727, 278, 5, 32, "Input"],
+Cell[254101, 7734, 1284, 37, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[255422, 7776, 278, 5, 32, "Input"],
+Cell[255703, 7783, 1259, 36, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[256999, 7824, 1078, 25, 32, "Input"],
+Cell[258080, 7851, 1261, 29, 33, "Output"]
+}, Open ]],
+Cell[259356, 7883, 463, 13, 32, "Input"],
+Cell[CellGroupData[{
+Cell[259844, 7900, 2390, 67, 99, "Input"],
+Cell[262237, 7969, 4270, 165, 37, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[266556, 8140, 145, 2, 44, "Subsection"],
+Cell[266704, 8144, 199, 4, 33, "Text"],
+Cell[CellGroupData[{
+Cell[266928, 8152, 1360, 26, 32, "Input"],
+Cell[268291, 8180, 24868, 751, 1324, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[293196, 8936, 131, 2, 32, "Input"],
+Cell[293330, 8940, 12127, 356, 438, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[305494, 9301, 335, 5, 32, "Input"],
+Cell[305832, 9308, 3488, 82, 109, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[309357, 9395, 229, 6, 32, "Input"],
+Cell[309589, 9403, 1979, 52, 116, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[311605, 9460, 263, 5, 32, "Input"],
+Cell[311871, 9467, 2832, 71, 116, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[314740, 9543, 210, 5, 32, "Input"],
+Cell[314953, 9550, 4214, 107, 226, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[319216, 9663, 201, 3, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[319442, 9670, 948, 24, 32, "Input"],
+Cell[320393, 9696, 100766, 3109, 2566, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[421196, 12810, 277, 6, 32, "Input"],
+Cell[421476, 12818, 42298, 1292, 1513, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[463811, 14115, 289, 4, 32, "Input"],
+Cell[464103, 14121, 7981, 206, 379, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[472121, 14332, 369, 7, 32, "Input"],
+Cell[472493, 14341, 10022, 293, 466, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[482564, 14640, 259, 3, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[482848, 14647, 706, 18, 32, "Input"],
+Cell[483557, 14667, 191346, 6123, 4686, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[674940, 20795, 281, 6, 32, "Input"],
+Cell[675224, 20803, 15626, 389, 148, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[690887, 21197, 198, 3, 32, "Input"],
+Cell[691088, 21202, 40844, 1074, 2418, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[731969, 22281, 335, 6, 32, "Input"],
+Cell[732307, 22289, 30377, 845, 1654, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[762733, 23140, 102, 1, 44, "Subsection"],
+Cell[762838, 23143, 426, 9, 32, "Input"],
+Cell[CellGroupData[{
+Cell[763289, 23156, 181, 3, 32, "Input"],
+Cell[763473, 23161, 5265, 125, 161, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[768775, 23291, 208, 5, 32, "Input"],
+Cell[768986, 23298, 5302, 129, 161, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[774325, 23432, 226, 4, 32, "Input"],
+Cell[774554, 23438, 8302, 201, 218, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[782893, 23644, 130, 2, 32, "Input"],
+Cell[783026, 23648, 1665, 27, 208, "Output"]
+}, Open ]]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[784752, 23682, 93, 1, 65, "Section"],
+Cell[CellGroupData[{
+Cell[784870, 23687, 95, 1, 45, "Subsection"],
+Cell[784968, 23690, 485, 13, 32, "Input"],
+Cell[CellGroupData[{
+Cell[785478, 23707, 200, 4, 32, "Input"],
+Cell[785681, 23713, 1100, 35, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[786818, 23753, 354, 8, 32, "Input"],
+Cell[787175, 23763, 1430, 47, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[788642, 23815, 246, 5, 32, "Input"],
+Cell[788891, 23822, 1213, 40, 58, "Output"]
+}, Open ]],
+Cell[790119, 23865, 207, 4, 33, "Text"],
+Cell[CellGroupData[{
+Cell[790351, 23873, 289, 7, 32, "Input"],
+Cell[790643, 23882, 1296, 42, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[791976, 23929, 291, 7, 32, "Input"],
+Cell[792270, 23938, 1293, 42, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[793600, 23985, 1546, 37, 55, "Input"],
+Cell[795149, 24024, 1456, 37, 55, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[796642, 24066, 573, 17, 32, "Input"],
+Cell[797218, 24085, 830, 32, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[798085, 24122, 2915, 89, 99, "Input"],
+Cell[801003, 24213, 4407, 172, 37, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[805459, 24391, 96, 1, 44, "Subsection"],
+Cell[CellGroupData[{
+Cell[805580, 24396, 499, 14, 32, "Input"],
+Cell[806082, 24412, 73592, 2065, 2206, "Output"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[879711, 26482, 238, 4, 26, "Input"],
+Cell[879952, 26488, 17187, 452, 816, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[897188, 26946, 103, 1, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[897316, 26951, 664, 19, 32, "Input"],
+Cell[897983, 26972, 176541, 5363, 5238, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1074561, 32340, 337, 7, 32, "Input"],
+Cell[1074901, 32349, 6005, 162, 333, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1080955, 32517, 111, 1, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[1081091, 32522, 535, 15, 32, "Input"],
+Cell[1081629, 32539, 168463, 5125, 4368, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1250129, 37669, 257, 5, 32, "Input"],
+Cell[1250389, 37676, 220891, 6726, 6984, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1471317, 44407, 245, 4, 32, "Input"],
+Cell[1471565, 44413, 3315, 96, 166, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[1474929, 44515, 102, 1, 36, "Subsection"],
+Cell[1475034, 44518, 248, 6, 30, "Input"],
+Cell[CellGroupData[{
+Cell[1475307, 44528, 133, 2, 30, "Input"],
+Cell[1475443, 44532, 4681, 119, 131, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1480161, 44656, 140, 4, 30, "Input"],
+Cell[1480304, 44662, 3920, 102, 111, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1484261, 44769, 58, 1, 30, "Input"],
+Cell[1484322, 44772, 10200, 252, 199, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1494559, 45029, 130, 2, 30, "Input"],
+Cell[1494692, 45033, 1848, 36, 219, "Output"]
+}, Open ]]
+}, Closed]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[1496601, 45076, 144, 2, 51, "Section"],
+Cell[CellGroupData[{
+Cell[1496770, 45082, 93, 1, 45, "Subsection"],
+Cell[1496866, 45085, 602, 15, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1497493, 45104, 328, 8, 32, "Input"],
+Cell[1497824, 45114, 1174, 36, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1499035, 45155, 325, 7, 32, "Input"],
+Cell[1499363, 45164, 1171, 36, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1500571, 45205, 284, 6, 32, "Input"],
+Cell[1500858, 45213, 1097, 34, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1501992, 45252, 278, 5, 32, "Input"],
+Cell[1502273, 45259, 1100, 34, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1503410, 45298, 280, 5, 32, "Input"],
+Cell[1503693, 45305, 1103, 34, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1504833, 45344, 981, 24, 32, "Input"],
+Cell[1505817, 45370, 1068, 26, 33, "Output"]
+}, Open ]],
+Cell[1506900, 45399, 578, 15, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1507503, 45418, 2457, 68, 99, "Input"],
+Cell[1509963, 45488, 4161, 163, 37, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1514173, 45657, 139, 2, 69, "Subsection"],
+Cell[CellGroupData[{
+Cell[1514337, 45663, 682, 18, 32, "Input"],
+Cell[1515022, 45683, 22716, 695, 1324, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1537775, 46383, 136, 2, 32, "Input"],
+Cell[1537914, 46387, 11285, 323, 438, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1549236, 46715, 297, 4, 32, "Input"],
+Cell[1549536, 46721, 2156, 62, 109, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1551729, 46788, 166, 3, 32, "Input"],
+Cell[1551898, 46793, 2914, 83, 136, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1554861, 46882, 79, 1, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[1554965, 46887, 752, 20, 32, "Input"],
+Cell[1555720, 46909, 96276, 2919, 2566, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1652033, 49833, 141, 2, 32, "Input"],
+Cell[1652177, 49837, 39423, 1175, 1513, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1691637, 51017, 195, 3, 32, "Input"],
+Cell[1691835, 51022, 7023, 192, 379, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1698895, 51219, 131, 3, 32, "Input"],
+Cell[1699029, 51224, 9536, 286, 466, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1708614, 51516, 85, 1, 45, "Subsection"],
+Cell[CellGroupData[{
+Cell[1708724, 51521, 586, 16, 32, "Input"],
+Cell[1709313, 51539, 184044, 5830, 4306, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1893394, 57374, 185, 4, 32, "Input"],
+Cell[1893582, 57380, 16290, 398, 188, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1909909, 57783, 217, 3, 32, "Input"],
+Cell[1910129, 57788, 40232, 1065, 2418, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1950398, 58858, 236, 5, 32, "Input"],
+Cell[1950637, 58865, 29994, 839, 1654, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1980680, 59710, 78, 1, 44, "Subsection"],
+Cell[1980761, 59713, 250, 6, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1981036, 59723, 133, 2, 32, "Input"],
+Cell[1981172, 59727, 4843, 119, 161, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1986052, 59851, 140, 4, 32, "Input"],
+Cell[1986195, 59857, 4865, 123, 161, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1991097, 59985, 124, 2, 32, "Input"],
+Cell[1991224, 59989, 7914, 195, 218, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1999175, 60189, 130, 2, 32, "Input"],
+Cell[1999308, 60193, 1406, 23, 208, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2000751, 60221, 314, 6, 32, "Input"],
+Cell[2001068, 60229, 172, 3, 64, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2001301, 60239, 91, 1, 51, "Section"],
+Cell[CellGroupData[{
+Cell[2001417, 60244, 95, 1, 45, "Subsection"],
+Cell[2001515, 60247, 481, 13, 30, "Input"],
+Cell[CellGroupData[{
+Cell[2002021, 60264, 196, 4, 30, "Input"],
+Cell[2002220, 60270, 1079, 35, 49, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2003336, 60310, 422, 10, 30, "Input"],
+Cell[2003761, 60322, 1431, 47, 49, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2005229, 60374, 242, 5, 30, "Input"],
+Cell[2005474, 60381, 1191, 40, 49, "Output"]
+}, Open ]],
+Cell[2006680, 60424, 135, 3, 30, "Text"],
+Cell[CellGroupData[{
+Cell[2006840, 60431, 288, 7, 30, "Input"],
+Cell[2007131, 60440, 1243, 42, 49, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2008411, 60487, 339, 8, 30, "Input"],
+Cell[2008753, 60497, 1247, 42, 49, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2010037, 60544, 1443, 35, 50, "Input"],
+Cell[2011483, 60581, 1407, 37, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2012927, 60623, 543, 15, 30, "Input"],
+Cell[2013473, 60640, 781, 30, 31, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2014291, 60675, 2752, 81, 88, "Input"],
+Cell[2017046, 60758, 4222, 166, 31, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2021317, 60930, 71, 1, 36, "Subsection"],
+Cell[CellGroupData[{
+Cell[2021413, 60935, 433, 13, 30, "Input"],
+Cell[2021849, 60950, 75309, 2137, 2206, "Output"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2097195, 63092, 185, 3, 24, "Input"],
+Cell[2097383, 63097, 17064, 450, 634, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2114496, 63553, 79, 1, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[2114600, 63558, 598, 18, 30, "Input"],
+Cell[2115201, 63578, 184193, 5686, 3139, "Output"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2299431, 69269, 240, 5, 24, "Input"],
+Cell[2299674, 69276, 5934, 161, 209, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2305657, 69443, 85, 1, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[2305767, 69448, 467, 14, 30, "Input"],
+Cell[2306237, 69464, 173630, 5348, 3053, "Output"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2479904, 74817, 117, 3, 24, "Input"],
+Cell[2480024, 74822, 9754, 257, 158, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2489815, 75084, 192, 3, 30, "Input"],
+Cell[2490010, 75089, 3290, 96, 127, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[2493349, 75191, 78, 1, 36, "Subsection"],
+Cell[2493430, 75194, 250, 6, 32, "Input"],
+Cell[CellGroupData[{
+Cell[2493705, 75204, 135, 2, 32, "Input"],
+Cell[2493843, 75208, 4631, 118, 150, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2498511, 75331, 140, 4, 32, "Input"],
+Cell[2498654, 75337, 3897, 102, 157, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2502588, 75444, 58, 1, 30, "Input"],
+Cell[2502649, 75447, 10149, 251, 199, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2512835, 75703, 64, 1, 30, "Input"],
+Cell[2512902, 75706, 1821, 35, 219, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]]
+}, Open ]]
+}
+]
+*)
+
+(* End of internal cache information *)
Property changes on: branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Boxes2.nb
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Index: branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Vertices.nb
===================================================================
--- branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Vertices.nb (revision 0)
+++ branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Vertices.nb (revision 1082)
@@ -0,0 +1,1995 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 8.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 157, 7]
+NotebookDataLength[ 70254, 1986]
+NotebookOptionsPosition[ 63414, 1743]
+NotebookOutlinePosition[ 63795, 1760]
+CellTagsIndexPosition[ 63752, 1757]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+
+Cell[CellGroupData[{
+Cell["Vertices for Direct Detection", "Title",
+ CellChangeTimes->{{3.611995530016789*^9, 3.611995542946417*^9}, {
+ 3.611996022350602*^9, 3.611996033608444*^9}}],
+
+Cell[TextData[StyleBox["\t\t\tby Patrick Steppeler",
+ FontFamily->"Utopia",
+ FontSlant->"Italic"]], "Text",
+ CellChangeTimes->{{3.611996549419997*^9, 3.611996554187799*^9}, {
+ 3.611996607441195*^9, 3.611996609035804*^9}},
+ FontSize->16],
+
+Cell["\<\
+The page references below refer to \[OpenCurlyDoubleQuote]Hitchhiker\
+\[CloseCurlyQuote]s guide to renormalization\[CloseCurlyDoubleQuote] version \
+1.3 by Karol Kovarik.\
+\>", "Text",
+ CellChangeTimes->{{3.6119963781819*^9, 3.611996437461493*^9}, {
+ 3.611996618987856*^9, 3.611996650203162*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["V1: Higgs-Gluon p.163", "Section",
+ CellChangeTimes->{{3.611996061944233*^9, 3.611996070271585*^9}, {
+ 3.611996336005898*^9, 3.611996341158092*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Parameter identification", "Subsection",
+ CellChangeTimes->{{3.611996206528729*^9, 3.611996214102594*^9},
+ 3.612068288428121*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ruleV1", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"M0", " ", "->", "0"}], ",", " ",
+ RowBox[{"M1", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"M2", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"m1", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"m3", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"p12", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p32", "\[Rule]",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p1p3", " ", "\[Rule]", " ", "pbp2"}], ",", " ",
+ RowBox[{"g0L", " ", "\[Rule]", " ",
+ RowBox[{"DL", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g0R", " ", "\[Rule]", " ",
+ RowBox[{"DR", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g1L", " ", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"g1R", " ", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"g2L", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"g2R", " ", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"B0", " ", "\[Rule]", " ", "xb0"}], ",",
+ RowBox[{"C0", " ", "\[Rule]", " ", "xc0"}], ",",
+ RowBox[{"C1", " ", "\[Rule]", " ", "xc1"}], ",",
+ RowBox[{"C2", " ", "\[Rule]", " ", "xc2"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.612066746597109*^9, 3.612066774765818*^9}, {
+ 3.612066867429018*^9, 3.612066885662922*^9}, {3.612067480927786*^9,
+ 3.6120676650320787`*^9}, {3.612067735519382*^9, 3.612067763368981*^9}, {
+ 3.612068376202943*^9, 3.6120683778436728`*^9}, {3.6120684490485563`*^9,
+ 3.612068483340563*^9}, {3.613714187314052*^9, 3.6137141901825647`*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Vertex result", "Subsection",
+ CellChangeTimes->{{3.611996194319227*^9, 3.6119961981023912`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ALV1", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ "4", "*", "M1", "*", "M2", "*", "C0", "*", "g0R", "*", "g1L", "*",
+ "g2R"}], " ", "-",
+ RowBox[{"2", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"M1", "*", "m3", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C2"}], ")"}], "*", "g0R", "*", "g1L", "*",
+ "g2L"}], " ", "+", " ",
+ RowBox[{
+ "M2", "*", "m3", "*", "C2", "*", "g0L", "*", "g1L", "*", "g2L"}], " ",
+ "+", " ",
+ RowBox[{"M2", "*", "m1", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1"}], ")"}], "*", "g0R", "*", "g1R", "*",
+ "g2R"}], " ", "+", " ",
+ RowBox[{
+ "M1", "*", "m1", "*", "C1", "*", "g0L", "*", "g1R", "*", "g2R"}]}],
+ ")"}]}], " ", "+", " ",
+ RowBox[{"4", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"p12", "*", "C1"}], " ", "+", " ",
+ RowBox[{"p32", "*", "C2"}], " ", "+", " ", "B0", " ", "+",
+ RowBox[{
+ RowBox[{"M0", "^", "2"}], "*", "C0"}], " ", "+", " ",
+ RowBox[{"p1p3", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}]}]}], ")"}], "*", "g0L",
+ "*", "g1L", "*", "g2R"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "-", "D"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "M1"}], "*", "M2", "*", "C0", "*", "g0R", "*", "g1L",
+ "*", "g2R"}], "+",
+ RowBox[{"M1", "*", "m3", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C2"}], ")"}], "*", "g0R", "*", "g1L", "*",
+ "g2L"}], "+",
+ RowBox[{
+ "M2", "*", "m3", "*", "C2", "*", "g0L", "*", "g1L", "*", "g2L"}], " ",
+ "+",
+ RowBox[{"M2", "*", "m1",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1"}], ")"}], "g0R", "*", "g1R", "*", "g2R"}],
+ " ", "+", " ",
+ RowBox[{
+ "M1", "*", "m1", "*", "C1", "*", "g0L", "*", "g1R", "*", "g2R"}], " ",
+ "-", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"p12", "*", "C1"}], " ", "+", " ",
+ RowBox[{"p32", "*", "C2"}], " ", "+", "B0", " ", "+",
+ RowBox[{
+ RowBox[{"M0", "^", "2"}], "*", "C0"}]}], ")"}], "*", "g0L", "*",
+ "g1L", "*", "g2R"}], " ", "-",
+ RowBox[{"m1", "*", "m3", "*",
+ RowBox[{"(",
+ RowBox[{"C0", " ", "+", " ", "C1", " ", "+", "C2"}], ")"}], "g0R",
+ "*", "g1R", "*", "g2L"}]}], ")"}]}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.612003888699586*^9, 3.612004062070479*^9}, {
+ 3.6120042413423433`*^9, 3.612004520779812*^9}, {3.612004585738063*^9,
+ 3.612004640637536*^9}, {3.612004740237994*^9, 3.61200494585439*^9}, {
+ 3.6120053477917767`*^9, 3.612005351705748*^9}, {3.612005721909091*^9,
+ 3.612005723370685*^9}, 3.6120682395887823`*^9, 3.612068310969976*^9}],
+
+Cell[BoxData[
+ RowBox[{" ",
+ RowBox[{
+ RowBox[{"ARV1", "=", " ",
+ RowBox[{"ALV1", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g0L", "\[Rule]", "g0R"}], ",", " ",
+ RowBox[{"g0R", "\[Rule]", "g0L"}], ",",
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]}]], "Input",
+ CellChangeTimes->{{3.611997178126814*^9, 3.611997185957046*^9}, {
+ 3.611997321332665*^9, 3.611997335764885*^9}, {3.611997370634364*^9,
+ 3.611997373277096*^9}, {3.6119974122850513`*^9, 3.611997497181993*^9},
+ 3.6119992879485207`*^9, {3.6120057975145893`*^9, 3.6120058421853733`*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Fortran result", "Subsection",
+ CellChangeTimes->{{3.611999298279068*^9, 3.611999307046503*^9},
+ 3.6119993615821743`*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ALV1", "//.", "ruleV1"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.61200512183355*^9, 3.612005129337949*^9}, {
+ 3.6120054549766827`*^9, 3.612005464160046*^9}, {3.6120677813960953`*^9,
+ 3.612067792996666*^9}, {3.612068352192791*^9, 3.6120683610800667`*^9}, {
+ 3.612068504766572*^9, 3.6120685236238832`*^9}}],
+
+Cell["\<\
+gs**2*(-2*(xc1 + xc2)*DR(i,tt,gen)*Mf(tt,gen)**2 + DL(i,tt,gen)*(D*xb0 + \
+4*pbp2*(xc0 + xc1 + xc2) + 2*(xc1 + xc2)*Mf(tt,gen)**2))\
+\>", "Output",
+ CellChangeTimes->{
+ 3.612005130191855*^9, 3.612005362792265*^9, 3.612005465170875*^9, {
+ 3.612005579687937*^9, 3.612005586475628*^9}, 3.6120056427471857`*^9, {
+ 3.6120057259636497`*^9, 3.6120057491575947`*^9}, 3.6120058451789923`*^9,
+ 3.612005942203771*^9, 3.612067440630786*^9, {3.6120677938400497`*^9,
+ 3.6120678233484497`*^9}, {3.6120682453309307`*^9, 3.6120682590612907`*^9},
+ 3.612068314761191*^9, {3.612068352955542*^9, 3.6120683624394493`*^9},
+ 3.612068396419866*^9, {3.612068489794503*^9, 3.612068524707747*^9},
+ 3.613712505750083*^9, 3.6137141963336153`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ARV1", "//.", "ruleV1"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.6120058170301733`*^9, 3.61200581755766*^9}, {
+ 3.612005852942408*^9, 3.6120058549016247`*^9}, 3.6120678027759027`*^9,
+ 3.612068562734417*^9}],
+
+Cell["\<\
+gs**2*(-2*(xc1 + xc2)*DL(i,tt,gen)*Mf(tt,gen)**2 + DR(i,tt,gen)*(D*xb0 + \
+4*pbp2*(xc0 + xc1 + xc2) + 2*(xc1 + xc2)*Mf(tt,gen)**2))\
+\>", "Output",
+ CellChangeTimes->{
+ 3.612005858349709*^9, 3.612005943054922*^9, 3.612067442361292*^9, {
+ 3.6120678061176443`*^9, 3.612067825280447*^9}, 3.612068270240238*^9,
+ 3.612068355442672*^9, 3.612068564160007*^9, 3.613712507215934*^9,
+ 3.61371419830916*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["V2: Higgs-Gluino p.168", "Section",
+ CellChangeTimes->{{3.611996061944233*^9, 3.611996104167407*^9}, {
+ 3.611996342981921*^9, 3.611996347005731*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Parameter identification", "Subsection",
+ CellChangeTimes->{{3.611996206528729*^9, 3.611996214102594*^9},
+ 3.612068288428121*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ruleV2", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"M0", " ", "\[Rule]", " ", "MGl"}], ",", " ",
+ RowBox[{"m1", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"m3", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g0", " ", "\[Rule]", " ",
+ RowBox[{"HSfSf", "[",
+ RowBox[{"a", ",", "i", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g1L", " ", "\[Rule]", " ",
+ RowBox[{"IL", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g1R", " ", "\[Rule]", " ",
+ RowBox[{"IR", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2L", " ", "\[Rule]", " ",
+ RowBox[{"JL", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", " ", "\[Rule]", " ",
+ RowBox[{"JR", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"C0", " ", "\[Rule]", " ", "xc0"}], ",",
+ RowBox[{"C1", " ", "\[Rule]", " ", "xc1"}], ",",
+ RowBox[{"C2", " ", "\[Rule]", " ", "xc2"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6120678668703403`*^9, 3.612067957462695*^9}, {
+ 3.612068571809945*^9, 3.612068592370594*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Vertex result", "Subsection",
+ CellChangeTimes->{{3.611996194319227*^9, 3.6119961981023912`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ALV2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"-", "g0"}], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"M0", "*", "C0", "*", "g1L", "*", "g2L"}], "-",
+ RowBox[{"m1", "*", "C1", "*", "g1R", "*", "g2L"}], "-",
+ RowBox[{"m3", "*", "C2", "*", "g1L", "*", "g2R"}]}], ")"}]}]}], " ",
+ ";"}]], "Input",
+ CellChangeTimes->{{3.611996827796423*^9, 3.611996927232575*^9},
+ 3.611999282566367*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ARV2", "=", " ",
+ RowBox[{"ALV2", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.611997178126814*^9, 3.611997185957046*^9}, {
+ 3.611997321332665*^9, 3.611997335764885*^9}, {3.611997370634364*^9,
+ 3.611997373277096*^9}, {3.6119974122850513`*^9, 3.611997497181993*^9},
+ 3.6119992879485207`*^9, 3.613712522214096*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Fortran result", "Subsection",
+ CellChangeTimes->{{3.611999298279068*^9, 3.611999307046503*^9},
+ 3.611999362054069*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"ALV2", "//.", "ruleV2"}], "]"}]], "Input",
+ CellChangeTimes->{{3.611999233227211*^9, 3.611999241745595*^9}, {
+ 3.612068622157262*^9, 3.61206862846257*^9}}],
+
+Cell["\<\
+-(HSfSf(a,i,j,tt,gen)*(MGl*xc0*IL(i,tt,gen)*JL(j,tt,gen) - \
+xc1*IR(i,tt,gen)*JL(j,tt,gen)*Mf(tt,gen) - \
+xc2*IL(i,tt,gen)*JR(j,tt,gen)*Mf(tt,gen)))\
+\>", "Output",
+ CellChangeTimes->{
+ 3.61199924276484*^9, 3.611999325431529*^9, 3.61200214617165*^9,
+ 3.6120027515473337`*^9, 3.612067969693658*^9, 3.612068155536975*^9,
+ 3.612068598415214*^9, {3.6120686294352093`*^9, 3.61206863863422*^9},
+ 3.613712524302239*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"ARV2", "//.", "ruleV2"}], "]"}]], "Input",
+ CellChangeTimes->{{3.611999257385879*^9, 3.611999257889534*^9},
+ 3.6120686363904057`*^9}],
+
+Cell["\<\
+-(HSfSf(a,i,j,tt,gen)*(MGl*xc0*IR(i,tt,gen)*JR(j,tt,gen) - \
+xc2*IR(i,tt,gen)*JL(j,tt,gen)*Mf(tt,gen) - \
+xc1*IL(i,tt,gen)*JR(j,tt,gen)*Mf(tt,gen)))\
+\>", "Output",
+ CellChangeTimes->{3.611999259423471*^9, 3.611999328634123*^9,
+ 3.6120021469798193`*^9, 3.612002752865696*^9, 3.612067972140027*^9,
+ 3.612068599254094*^9, 3.6120686393747396`*^9, 3.6137125254286118`*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["V3: Z0-Gluon p.170", "Section",
+ CellChangeTimes->{{3.611996061944233*^9, 3.611996107991435*^9}, {
+ 3.611996348549856*^9, 3.611996351741683*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Parameter identification", "Subsection",
+ CellChangeTimes->{{3.611996206528729*^9, 3.611996214102594*^9},
+ 3.612071468505279*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ruleV3", " ", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"M0", " ", "->", "0"}], ",", " ",
+ RowBox[{"M1", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"M2", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"m1", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"m3", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"p12", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p32", "\[Rule]",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p1p3", " ", "\[Rule]", " ", "pbp2"}], ",",
+ RowBox[{"g0L", " ", "\[Rule]", " ",
+ RowBox[{"BL", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g0R", " ", "\[Rule]", " ",
+ RowBox[{"BR", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g1L", " ", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"g1R", " ", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"g2L", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"g2R", " ", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"B0", " ", "\[Rule]", " ", "xb0"}], ",",
+ RowBox[{"C0", " ", "\[Rule]", " ", "xc0"}], ",",
+ RowBox[{"C1", " ", "\[Rule]", " ", "xc1"}], ",",
+ RowBox[{"C2", " ", "\[Rule]", " ", "xc2"}], ",", " ",
+ RowBox[{"C00", "\[Rule]", " ", "xc00"}], ",", " ",
+ RowBox[{"C11", " ", "\[Rule]", " ", "xc11"}], ",", " ",
+ RowBox[{"C12", "\[Rule]", "xc12"}], ",", " ",
+ RowBox[{"C22", " ", "\[Rule]", " ", "xc22"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.613293917293993*^9, 3.613293928718162*^9},
+ 3.6132940572014637`*^9, {3.613300064707107*^9, 3.613300095387231*^9}, {
+ 3.6133001598520947`*^9, 3.613300164123605*^9}, 3.613300223592072*^9,
+ 3.6133003960121202`*^9, {3.613300433596237*^9, 3.6133004382491713`*^9}, {
+ 3.613300477403249*^9, 3.613300502093506*^9}, {3.6173599083070803`*^9,
+ 3.6173599130887423`*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Vertex result", "Subsection",
+ CellChangeTimes->{{3.611996194319227*^9, 3.6119961981023912`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AL1V3", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"2", "-", "D"}], ")"}], "*", "M1", "*", "M2", "*", "C0", "*",
+ " ", "g2L", "*", "g0R", "*", "g1L"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"2", "-", "D"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "B0"}], "-",
+ RowBox[{
+ RowBox[{"M0", "^", "2"}], "*", "C0"}], "+",
+ RowBox[{"2", "*", "C00"}], " ", "-",
+ RowBox[{"p12", "*", "C1"}], "-",
+ RowBox[{"p32", "*", "C2"}]}], ")"}], "*", "g2L", "*", "g0L", "*",
+ "g1L"}], "+",
+ RowBox[{"4", "*", "p1p3", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}], "*", "g2L", "*", "g0L",
+ "*", "g1L"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "-", "D"}], ")"}], "*", "m1", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"M1", "*", "C1", "*", "g2L", "*", "g0L", "*", "g1R"}], "-",
+ RowBox[{"M2", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1"}], ")"}], "*", "g2L", "*", "g0R", "*",
+ "g1R"}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "-", "D"}], ")"}], "*", "m3", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"M2", "*", "C2", "*", "g2R", "*", "g0L", "*", "g1L"}], "-",
+ RowBox[{"M1", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C2"}], ")"}], "*", "g2R", "*", "g0R", "*",
+ "g1L"}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"6", "-", "D"}], ")"}], "*", "m1", "*", "m3", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}], "*", "g2R", "*", "g0R",
+ "*", "g1R"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.613293263200384*^9, 3.613293268729013*^9}, {
+ 3.6132934050648737`*^9, 3.613293822285273*^9}, 3.613293853453054*^9, {
+ 3.613294185240505*^9, 3.613294186280528*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AR1V3", " ", "=", " ",
+ RowBox[{"AL1V3", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g0L", "\[Rule]", "g0R"}], ",", " ",
+ RowBox[{"g0R", "\[Rule]", "g0L"}], ",",
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.613293270895678*^9, 3.6132932787720823`*^9}, {
+ 3.6132938352941523`*^9, 3.613293848995513*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AL2V3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"2", "*", "M1", "*",
+ RowBox[{"(",
+ RowBox[{"C1", "-", "C0", "-", "C2"}], ")"}], "*", "g2R", "*", "g0R",
+ "*", "g1L"}], "+",
+ RowBox[{"2", "*", "M2", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "-", "C2"}], ")"}], "*", "g2R", "*", "g0L",
+ "*", "g1L"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "-", "D"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"M1", "*", "C1", "*", "g2R", "*", "g0R", "*", "g1L"}], "+",
+ RowBox[{"M2", "*", "C2", "*", "g2R", "*", "g0L", "*", "g1L"}]}],
+ ")"}]}], "+",
+ RowBox[{"m1", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"2", "-", "D"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{"C11", "-", "C12", "+", "C1"}], ")"}]}], "+",
+ RowBox[{"2", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}]}]}], ")"}], "*", "g2R",
+ "*", "g0R", "*", "g1R"}], "+",
+ RowBox[{"m3", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"2", "-", "D"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{"C12", "-", "C22", "-", "C2"}], ")"}]}], "-",
+ RowBox[{"2", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}]}]}], ")"}], "*", "g2L",
+ "*", "g0L", "*", "g1L"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.613293287879991*^9, 3.613293292505374*^9}, {
+ 3.613299014600089*^9, 3.61329901515847*^9}, {3.613299301308754*^9,
+ 3.613299501217093*^9}, {3.6132995331892757`*^9, 3.61329960757439*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AR2V3", " ", "=", " ",
+ RowBox[{"AL2V3", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g0L", "\[Rule]", "g0R"}], ",", " ",
+ RowBox[{"g0R", "\[Rule]", "g0L"}], ",",
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.613293294953269*^9, 3.613293302144623*^9}, {
+ 3.6132938653573523`*^9, 3.613293874346929*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{
+ RowBox[{"AL3V3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"2", "*", "M1", "*",
+ RowBox[{"(",
+ RowBox[{"C1", "+", "C0", "+", "C2"}], ")"}], "*", "g2R", "*", "g0R",
+ "*", "g1L"}], "+",
+ RowBox[{"2", "*", "M2", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}], "*", "g2R", "*", "g0L",
+ "*", "g1L"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"4", "-", "D"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"M1", "*", "C1", "*", "g2R", "*", "g0R", "*", "g1L"}], "-",
+ RowBox[{"M2", "*", "C2", "*", "g2R", "*", "g0L", "*", "g1L"}]}],
+ ")"}]}], "+",
+ RowBox[{"m1", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"2", "-", "D"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{"C11", "+", "C12", "+", "C1"}], ")"}]}], "-",
+ RowBox[{"2", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}]}]}], ")"}], "*", "g2R",
+ "*", "g0R", "*", "g1R"}], "+",
+ RowBox[{"m3", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"2", "-", "D"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{"C12", "+", "C22", "+", "C2"}], ")"}]}], "-",
+ RowBox[{"2", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}]}]}], ")"}], "*", "g2L",
+ "*", "g0L", "*", "g1L"}]}]}], ";"}], " "}]], "Input",
+ CellChangeTimes->{{3.61329330372092*^9, 3.613293307289432*^9}, {
+ 3.613293866533443*^9, 3.613293871796928*^9}, {3.613299019142498*^9,
+ 3.6132990199265203`*^9}, {3.6132997688990307`*^9, 3.613299984973803*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AR3V3", " ", "=", " ",
+ RowBox[{"AL3V3", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g0L", "\[Rule]", "g0R"}], ",", " ",
+ RowBox[{"g0R", "\[Rule]", "g0L"}], ",",
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6132933090968924`*^9, 3.6132933136338053`*^9}, {
+ 3.613293868627082*^9, 3.6132938764998713`*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Fortran result", "Subsection",
+ CellChangeTimes->{{3.611999298279068*^9, 3.611999307046503*^9},
+ 3.611999363414158*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AL1V3", "//.", "ruleV3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.613293940327085*^9, 3.6132939712948103`*^9}}],
+
+Cell["\<\
+gs**2*(2*(xc1 + xc2)*BR(tt,gen)*Mf(tt,gen)**2 + BL(tt,gen)*((-2 + D)*xb0 + \
+4*pbp2*xc0 + 4*xc00 - 2*D*xc00 + 4*pbp2*xc1 + 4*pbp2*xc2 + 2*(xc1 + \
+xc2)*Mf(tt,gen)**2))\
+\>", "Output",
+ CellChangeTimes->{{3.613294005427445*^9, 3.613294026609892*^9},
+ 3.6132941921961203`*^9, 3.613299030700623*^9, 3.613300108301689*^9,
+ 3.613300296551774*^9, 3.613300332153223*^9, 3.613300509963029*^9,
+ 3.613712538833789*^9, 3.617359979278084*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AR1V3", "//.", "ruleV3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.6132939409432087`*^9, 3.6132939913827963`*^9}}],
+
+Cell["\<\
+gs**2*(2*(xc1 + xc2)*BL(tt,gen)*Mf(tt,gen)**2 + BR(tt,gen)*((-2 + D)*xb0 + \
+4*pbp2*xc0 + 4*xc00 - 2*D*xc00 + 4*pbp2*xc1 + 4*pbp2*xc2 + 2*(xc1 + \
+xc2)*Mf(tt,gen)**2))\
+\>", "Output",
+ CellChangeTimes->{
+ 3.6132990315209103`*^9, 3.613300109357698*^9, {3.613300303122068*^9,
+ 3.613300332833251*^9}, 3.613300511714403*^9, 3.613712539785656*^9,
+ 3.61735998063015*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AL2V3", "//.", "ruleV3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.613293941708963*^9, 3.613293980374291*^9}}],
+
+Cell["\<\
+gs**2*((-((-2 + D)*xc12) + 2*(-5 + D)*xc2 + (-2 + D)*xc22)*BL(tt,gen) + \
+(2*xc1 - (-2 + D)*(xc11 - xc12))*BR(tt,gen))*Mf(tt,gen)\
+\>", "Output",
+ CellChangeTimes->{
+ 3.613299032878323*^9, 3.613299750091752*^9, 3.613300110111766*^9, {
+ 3.613300304473317*^9, 3.613300334128414*^9}, 3.613300512599231*^9,
+ 3.6137125407482224`*^9, 3.6173599814594727`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AR2V3", "//.", "ruleV3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.613293942398384*^9, 3.6132939942068377`*^9}}],
+
+Cell["\<\
+gs**2*((2*xc1 - (-2 + D)*(xc11 - xc12))*BL(tt,gen) + (-((-2 + D)*xc12) + \
+2*(-5 + D)*xc2 + (-2 + D)*xc22)*BR(tt,gen))*Mf(tt,gen)\
+\>", "Output",
+ CellChangeTimes->{
+ 3.613299033625605*^9, 3.6132997509240713`*^9, 3.613300110892374*^9, {
+ 3.613300305846704*^9, 3.613300334910911*^9}, 3.6133005134974117`*^9,
+ 3.613712542101898*^9, 3.617359982284211*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AL3V3", "//.", "ruleV3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.6132939433269997`*^9, 3.6132939854223146`*^9}, {
+ 3.613300336168949*^9, 3.613300337941927*^9}}],
+
+Cell["\<\
+-(gs**2*(((-2 + D)*xc12 + 2*(-3 + D)*xc2 + (-2 + D)*xc22)*BL(tt,gen) + (2*xc1 \
++ (-2 + D)*(xc11 + xc12))*BR(tt,gen))*Mf(tt,gen))\
+\>", "Output",
+ CellChangeTimes->{3.613299034248827*^9, 3.613300111681449*^9,
+ 3.613300306725624*^9, 3.613300339341805*^9, 3.613300514547653*^9,
+ 3.6137125429933357`*^9, 3.617359983101016*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AR3V3", "//.", "ruleV3"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.613293944197772*^9, 3.613294001550465*^9}}],
+
+Cell["\<\
+-(gs**2*((2*xc1 + (-2 + D)*(xc11 + xc12))*BL(tt,gen) + ((-2 + D)*xc12 + 2*(-3 \
++ D)*xc2 + (-2 + D)*xc22)*BR(tt,gen))*Mf(tt,gen))\
+\>", "Output",
+ CellChangeTimes->{3.613299034792713*^9, 3.613300112938026*^9,
+ 3.6133003077285233`*^9, 3.613300340294817*^9, 3.613300515313828*^9,
+ 3.613712544471654*^9, 3.617359983844408*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["V4: Z0-Gluino p.180", "Section",
+ CellChangeTimes->{{3.611996061944233*^9, 3.611996114879241*^9}, {
+ 3.611996445477209*^9, 3.611996448549011*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Parameter identification", "Subsection",
+ CellChangeTimes->{{3.611996206528729*^9, 3.611996214102594*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ruleV4", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"M0", " ", "\[Rule]", "MGl"}], ",", " ",
+ RowBox[{"M1", " ", "\[Rule]", " ",
+ RowBox[{"MSf", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"M2", "\[Rule]", " ",
+ RowBox[{"MSf", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"m1", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"m3", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"p12", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p32", "\[Rule]",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p1p3", " ", "\[Rule]", " ", "pbp2"}], ",",
+ RowBox[{"g0", " ", "\[Rule]", " ",
+ RowBox[{"-",
+ RowBox[{"ZSfSf", "[",
+ RowBox[{"i", ",", "j", ",", "tt", ",", "gen"}], "]"}]}]}], ",",
+ RowBox[{"g1L", " ", "\[Rule]", " ",
+ RowBox[{"IL", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g1R", " ", "\[Rule]", " ",
+ RowBox[{"IR", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2L", " ", "\[Rule]", " ",
+ RowBox[{"JL", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", " ", "\[Rule]", " ",
+ RowBox[{"JR", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"B0", " ", "\[Rule]", " ", "xb0"}], ",",
+ RowBox[{"C0", " ", "\[Rule]", " ", "xc0"}], ",",
+ RowBox[{"C1", " ", "\[Rule]", " ", "xc1"}], ",",
+ RowBox[{"C2", " ", "\[Rule]", " ", "xc2"}], ",", " ",
+ RowBox[{"C00", "\[Rule]", " ", "xc00"}], ",", " ",
+ RowBox[{"C11", " ", "\[Rule]", " ", "xc11"}], ",", " ",
+ RowBox[{"C12", "\[Rule]", "xc12"}], ",", " ",
+ RowBox[{"C22", " ", "\[Rule]", " ", "xc22"}]}], "}"}]}], ";"}]], "Input",\
+
+ CellChangeTimes->{{3.6132989566446857`*^9, 3.613298962510448*^9},
+ 3.6132990107142963`*^9, {3.6133006997068167`*^9, 3.6133007080367203`*^9},
+ 3.6133007927377977`*^9, {3.613300862707326*^9, 3.613300918494994*^9},
+ 3.617954027370965*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Vertex result", "Subsection",
+ CellChangeTimes->{{3.611996194319227*^9, 3.6119961981023912`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AL1V4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"-", "2"}], "*", "g0", "*", "g2R", "*", "g1L", "*", "C00"}]}],
+ " ", ";"}]], "Input",
+ CellChangeTimes->{{3.613293342176803*^9, 3.613293342241591*^9}, {
+ 3.613298971270753*^9, 3.613298972717896*^9}, {3.6133013561241903`*^9,
+ 3.613301395755865*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AR1V4", " ", "=", " ",
+ RowBox[{"AL1V4", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g0L", "\[Rule]", "g0R"}], ",", " ",
+ RowBox[{"g0R", "\[Rule]", "g0L"}], ",",
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.613293344080366*^9, 3.613293355689414*^9}, {
+ 3.6132988015033293`*^9, 3.613298815284234*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AL2V4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"g0", "*", "g2L", "*", "g1L", "*", "M0", "*",
+ RowBox[{"(",
+ RowBox[{"C1", "-", "C2"}], ")"}]}], "-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g0", "*", "g2L", "*", "g1R", "*", "m1", "*",
+ RowBox[{"(",
+ RowBox[{"C11", "-", "C12"}], ")"}]}], "+",
+ RowBox[{"g0", "*", "g2R", "*", "g1L", "*", " ", "m3", "*",
+ RowBox[{"(",
+ RowBox[{"C12", "-", "C22"}], ")"}]}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.613293333609879*^9, 3.613293346000496*^9}, {
+ 3.613298978213382*^9, 3.613298982894617*^9}, {3.613301416043274*^9,
+ 3.613301462705751*^9}, {3.613301521291065*^9, 3.6133015482163773`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AR2V4", " ", "=", " ",
+ RowBox[{"AL2V4", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g0L", "\[Rule]", "g0R"}], ",", " ",
+ RowBox[{"g0R", "\[Rule]", "g0L"}], ",",
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.613293335321278*^9, 3.61329335825708*^9}, {
+ 3.613298803375146*^9, 3.613298818315991*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AL3V4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"g0", "*", "g2L", "*", "g1L", "*", "M0", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}]}], "-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"g0", "*", "g2L", "*", "g1R", "*", "m1", "*",
+ RowBox[{"(",
+ RowBox[{"C1", "+", "C11", "+", "C12"}], ")"}]}], "+",
+ RowBox[{"g0", "*", "g2R", "*", "g1L", "*", "m3", "*",
+ RowBox[{"(",
+ RowBox[{"C2", "+", "C12", "+", "C22"}], ")"}]}]}], ")"}]}]}],
+ ";"}]], "Input",
+ CellChangeTimes->{{3.613293337505184*^9, 3.613293349576377*^9}, {
+ 3.613298987765711*^9, 3.613298988445695*^9}, {3.613301589124613*^9,
+ 3.6133016810268173`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"AR3V4", " ", "=", " ",
+ RowBox[{"AL3V4", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g0L", "\[Rule]", "g0R"}], ",", " ",
+ RowBox[{"g0R", "\[Rule]", "g0L"}], ",",
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6132933392970037`*^9, 3.613293360594088*^9}, {
+ 3.613298804623076*^9, 3.613298821515519*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Fortran result", "Subsection",
+ CellChangeTimes->{{3.611999298279068*^9, 3.611999307046503*^9},
+ 3.611999364678097*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AL1V4", "//.", "ruleV4"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.613298838153504*^9, 3.613298838679964*^9}, {
+ 3.613298880969228*^9, 3.6132988853838787`*^9}}],
+
+Cell["2*xc00*IL(i,tt,gen)*JR(j,tt,gen)*ZSfSf(i,j,tt,gen)", "Output",
+ CellChangeTimes->{3.6132989909988337`*^9, 3.6133016945554256`*^9,
+ 3.613712681029533*^9, 3.617954034870867*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AR1V4", "//.", "ruleV4"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.613298887129005*^9, 3.61329889783986*^9}}],
+
+Cell["2*xc00*IR(i,tt,gen)*JL(j,tt,gen)*ZSfSf(i,j,tt,gen)", "Output",
+ CellChangeTimes->{3.61329899177941*^9, 3.613301695527173*^9,
+ 3.61371268177934*^9, 3.617954035715974*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AL2V4", "//.", "ruleV4"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.613298865288144*^9, 3.613298895231804*^9}, {
+ 3.613298928711467*^9, 3.613298931831381*^9}}],
+
+Cell["\<\
+((xc11 - xc12)*IR(i,tt,gen)*JL(j,tt,gen)*Mf(tt,gen) + IL(i,tt,gen)*(MGl*(-xc1 \
++ xc2)*JL(j,tt,gen) + (xc12 - \
+xc22)*JR(j,tt,gen)*Mf(tt,gen)))*ZSfSf(i,j,tt,gen)\
+\>", "Output",
+ CellChangeTimes->{3.613298992465266*^9, 3.613301696224678*^9,
+ 3.6137126828006563`*^9, 3.617954036728876*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AR2V4", "//.", "ruleV4"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.6132988691203537`*^9, 3.613298869191957*^9}, {
+ 3.6132989017442513`*^9, 3.613298918615472*^9}}],
+
+Cell["\<\
+((xc11 - xc12)*IL(i,tt,gen)*JR(j,tt,gen)*Mf(tt,gen) + IR(i,tt,gen)*(MGl*(-xc1 \
++ xc2)*JR(j,tt,gen) + (xc12 - \
+xc22)*JL(j,tt,gen)*Mf(tt,gen)))*ZSfSf(i,j,tt,gen)\
+\>", "Output",
+ CellChangeTimes->{
+ 3.613298993083251*^9, {3.613301696895955*^9, 3.6133017060410347`*^9},
+ 3.613301772331437*^9, 3.613712683631753*^9, 3.617954037322629*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AL3V4", "//.", "ruleV4"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.613298872304285*^9, 3.613298872463954*^9}, {
+ 3.613298906135993*^9, 3.613298935639819*^9}}],
+
+Cell["\<\
+(-(MGl*(xc0 + xc1 + xc2)*IL(i,tt,gen)*JL(j,tt,gen)) + (xc1 + xc11 + \
+xc12)*IR(i,tt,gen)*JL(j,tt,gen)*Mf(tt,gen) + (xc12 + xc2 + \
+xc22)*IL(i,tt,gen)*JR(j,tt,gen)*Mf(tt,gen))*ZSfSf(i,j,tt,gen)\
+\>", "Output",
+ CellChangeTimes->{3.613298993781517*^9, 3.613301698293973*^9,
+ 3.613712684319419*^9, 3.617954037849944*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"AR3V4", "//.", "ruleV4"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.613298875400186*^9, 3.6132988754959097`*^9}, {
+ 3.6132989091276007`*^9, 3.613298910959079*^9}}],
+
+Cell["\<\
+(-(MGl*(xc0 + xc1 + xc2)*IR(i,tt,gen)*JR(j,tt,gen)) + (xc12 + xc2 + \
+xc22)*IR(i,tt,gen)*JL(j,tt,gen)*Mf(tt,gen) + (xc1 + xc11 + \
+xc12)*IL(i,tt,gen)*JR(j,tt,gen)*Mf(tt,gen))*ZSfSf(i,j,tt,gen)\
+\>", "Output",
+ CellChangeTimes->{3.6132989944423513`*^9, 3.613301699823749*^9,
+ 3.6137126853438177`*^9, 3.6179540384143953`*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+V5: Squark-Gluon (Outgoing Squark) p.167\
+\>", "Section",
+ CellChangeTimes->{{3.611996061944233*^9, 3.6119961664070377`*^9}, {
+ 3.611996450909213*^9, 3.611996456316668*^9}, {3.613279593307617*^9,
+ 3.6132796006507607`*^9}, {3.613287142306074*^9, 3.6132871444812803`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Parameter identification", "Subsection",
+ CellChangeTimes->{{3.611996206528729*^9, 3.611996214102594*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ruleV5", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"M0", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"m1", " ", "\[Rule]", " ",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",", " ",
+ RowBox[{"m3", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g0", " ", "\[Rule]",
+ RowBox[{"-", "gs"}]}], " ", ",",
+ RowBox[{"g1L", " ", "\[Rule]", " ",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g1R", " ", "\[Rule]", " ",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2L", " ", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"g2R", " ", "\[Rule]",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"p12", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"MNeu", "[", "1", "]"}], "^", "2"}]}], ",",
+ RowBox[{"p32", "\[Rule]",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p1p3", " ", "\[Rule]", " ",
+ RowBox[{"-", "papb"}]}], ",", " ",
+ RowBox[{"B0", "\[Rule]", " ", "xb0"}], ",",
+ RowBox[{"C0", " ", "\[Rule]", " ", "xc0"}], ",",
+ RowBox[{"C1", " ", "\[Rule]", " ", "xc1"}], ",",
+ RowBox[{"C2", " ", "\[Rule]", " ", "xc2"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.612070007805071*^9, 3.6120700078705883`*^9}, {
+ 3.612070089707184*^9, 3.6120701069907417`*^9}, {3.6120703059057903`*^9,
+ 3.6120703341314096`*^9}, {3.612070424120373*^9, 3.61207042819026*^9}, {
+ 3.612070637207646*^9, 3.612070663334408*^9}, {3.612070707785967*^9,
+ 3.612070709426958*^9}, {3.612071082402136*^9, 3.612071087082464*^9},
+ 3.612072519209511*^9, {3.6132870273146*^9, 3.613287028458602*^9}, {
+ 3.613298685147049*^9, 3.613298686462595*^9}, {3.613797913312355*^9,
+ 3.613797930599471*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Vertex result", "Subsection",
+ CellChangeTimes->{{3.611996194319227*^9, 3.6119961981023912`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ALV5", " ", "=",
+ RowBox[{"g0", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"B0", "+",
+ RowBox[{
+ RowBox[{"M0", "^", "2"}], " ", "*", "C0"}], "+",
+ RowBox[{"2", " ", "*", "p12", "*", " ", "C1"}], "-",
+ RowBox[{"p32", "*", " ", "C2"}], "+",
+ RowBox[{"4", "*", "p1p3", "*", " ", "C2"}]}], ")"}], "*", "g1L", " ",
+ "*", "g2R"}], "+",
+ RowBox[{"M0", " ", "*", "m3", "*", " ",
+ RowBox[{"(",
+ RowBox[{"C0", "-", "C2"}], ")"}], "*", "g1L", " ", "*", "g2L"}], "+",
+
+ RowBox[{"M0", "*", " ", "m1", "*", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], "*", "C0"}], "-", "C1"}], ")"}], "*", "g1R",
+ "*", " ", "g2R"}], "-",
+ RowBox[{"m1", "*", " ", "m3", "*", " ",
+ RowBox[{"(",
+ RowBox[{"C1", "+",
+ RowBox[{"2", "*", "C2"}]}], ")"}], "*", "g1R", "*", " ", "g2L"}]}],
+ ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6120695802965612`*^9, 3.612069766060543*^9},
+ 3.612069811939674*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ARV5", "=", " ",
+ RowBox[{"ALV5", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.611997178126814*^9, 3.611997185957046*^9}, {
+ 3.611997321332665*^9, 3.611997335764885*^9}, {3.611997370634364*^9,
+ 3.611997373277096*^9}, {3.6119974122850513`*^9, 3.611997497181993*^9},
+ 3.6119992879485207`*^9, {3.612069816076788*^9, 3.612069821741929*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Fortran result", "Subsection",
+ CellChangeTimes->{{3.611999298279068*^9, 3.611999307046503*^9},
+ 3.6119993659580307`*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ALV5", "//.", "ruleV5"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.61206998429642*^9, 3.61206998613894*^9}, {
+ 3.612070366126136*^9, 3.612070370599824*^9}}],
+
+Cell["\<\
+-(gs**2*(2*(xc0 + xc1 + xc2)*FR(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) - \
+FL(1,i,tt,gen)*(xb0 - 4*papb*xc2 + 2*(xc0 - xc2)*Mf(tt,gen)**2 + \
+2*xc1*MNeu(1)**2)))\
+\>", "Output",
+ CellChangeTimes->{{3.612070361264968*^9, 3.612070371637061*^9},
+ 3.612070723966927*^9, 3.6120710998980007`*^9, 3.612072524449326*^9,
+ 3.613287034738164*^9, 3.613298695556719*^9, 3.613712832867968*^9,
+ 3.613797952724284*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ARV5", "//.", "ruleV5"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.612071289575078*^9, 3.6120712971535873`*^9}}],
+
+Cell["\<\
+-(gs**2*(2*(xc0 + xc1 + xc2)*FL(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) - \
+FR(1,i,tt,gen)*(xb0 - 4*papb*xc2 + 2*(xc0 - xc2)*Mf(tt,gen)**2 + \
+2*xc1*MNeu(1)**2)))\
+\>", "Output",
+ CellChangeTimes->{3.612071298018201*^9, 3.6120725256134987`*^9,
+ 3.61328703685816*^9, 3.613298697110161*^9, 3.613712833916827*^9,
+ 3.613797955003518*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["\<\
+V6: Squark-Gluino (Outgoing Squark) p.161\
+\>", "Section",
+ CellChangeTimes->{{3.611996061944233*^9, 3.611996093999539*^9}, {
+ 3.6119961248800163`*^9, 3.611996138823221*^9}, {3.611996170903051*^9,
+ 3.611996171464172*^9}, {3.611996462613145*^9, 3.611996466172833*^9}, {
+ 3.6120779912676563`*^9, 3.612077994621562*^9}, {3.613279603858778*^9,
+ 3.613279608074741*^9}, {3.613298666812831*^9, 3.613298669980754*^9}, {
+ 3.613300667524726*^9, 3.613300672492711*^9}, {3.6133025377670527`*^9,
+ 3.61330253843591*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Parameter identification", "Subsection",
+ CellChangeTimes->{{3.611996206528729*^9, 3.611996214102594*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ruleV6", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"M0", " ", "\[Rule]", " ",
+ RowBox[{"MSf", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"M1", "\[Rule]", " ", "MGl"}], ",",
+ RowBox[{"M2", "\[Rule]",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"m1", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"m3", " ", "\[Rule]", " ",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",", " ",
+ RowBox[{"g0L", " ", "\[Rule]",
+ RowBox[{"IL", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g0R", "\[Rule]", " ",
+ RowBox[{"IR", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], " ", ",",
+ RowBox[{"g1L", " ", "\[Rule]", " ",
+ RowBox[{"IL", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g1R", " ", "\[Rule]", " ",
+ RowBox[{"IR", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2L", " ", "\[Rule]", " ",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", " ", "\[Rule]",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"p12", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p32", "\[Rule]",
+ RowBox[{
+ RowBox[{"MNeu", "[", "1", "]"}], "^", "2"}]}], ",",
+ RowBox[{"p1p3", " ", "\[Rule]", " ",
+ RowBox[{"-", "papb"}]}], ",", " ",
+ RowBox[{"B0", "\[Rule]", " ", "xb0"}], ",",
+ RowBox[{"C0", " ", "\[Rule]", " ", "xc0"}], ",",
+ RowBox[{"C1", " ", "\[Rule]", " ", "xc1"}], ",",
+ RowBox[{"C2", " ", "\[Rule]", " ", "xc2"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.612071623897732*^9, 3.6120716266341476`*^9}, {
+ 3.612072198357993*^9, 3.612072244570078*^9}, {3.6120764342720757`*^9,
+ 3.612076536100268*^9}, {3.6120765772029877`*^9, 3.612076642512733*^9}, {
+ 3.6120766734108477`*^9, 3.612076678823566*^9}, {3.612077303296138*^9,
+ 3.612077332389402*^9}, {3.613287174030923*^9, 3.6132871747647943`*^9}, {
+ 3.613298676979618*^9, 3.613298677975463*^9}, {3.613302452455174*^9,
+ 3.613302453954733*^9}, {3.613797915409299*^9, 3.6137979435888557`*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Vertex result", "Subsection",
+ CellChangeTimes->{{3.611996194319227*^9, 3.6119961981023912`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ALV6", "=", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"-", "1"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ "M1", " ", "*", "M2", "*", " ", "C0", "*", "g0L", "*", " ", "g1L", "*",
+ " ", "g2L"}], "+",
+ RowBox[{"M1", "*", " ", "m3", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C2"}], ")"}], "*", "g0L", "*", " ", "g1L", "*",
+ " ", "g2R"}], "+",
+ RowBox[{
+ "M1", "*", " ", "m1", "*", " ", "C1", "*", "g0R", "*", " ", "g1R", "*",
+ " ", "g2L"}], "+",
+ RowBox[{"M2", "*", " ", "m1", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1"}], ")"}], "*", "g0L", "*", " ", "g1R", "*",
+ " ", "g2L"}], "+",
+ RowBox[{
+ "M2", "*", " ", "m3", "*", " ", "C2", "*", "g0R", "*", " ", "g1L", "*",
+ " ", "g2R"}], "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"B0", "+",
+ RowBox[{
+ RowBox[{"M0", "^", "2"}], "*", " ", "C0"}], "+",
+ RowBox[{"p32", " ", "*", "C2"}], "+",
+ RowBox[{"p12", " ", "*", "C1"}]}], ")"}], "*", "g0R", " ", "*",
+ "g1L", " ", "*", "g2L"}], "+",
+ RowBox[{"m1", " ", "*", "m3", " ", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}], "*", "g0L", " ", "*",
+ "g1R", " ", "*", "g2R"}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6120717853623457`*^9, 3.6120720129356327`*^9},
+ 3.612072085556222*^9, {3.6120773735324907`*^9, 3.6120774063193207`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ARV6", "=", " ",
+ RowBox[{"ALV6", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g0L", " ", "\[Rule]", " ", "g0R"}], ",", " ",
+ RowBox[{"g0R", " ", "\[Rule]", " ", "g0L"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.61207166818968*^9, 3.6120716697015123`*^9},
+ 3.612077870086628*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Fortran result", "Subsection",
+ CellChangeTimes->{{3.611999298279068*^9, 3.611999307046503*^9},
+ 3.6119993673101463`*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ALV6", "//.", "ruleV6"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.612071640820711*^9, 3.6120716446834927`*^9}}],
+
+Cell["\<\
+ -(ER(1,j,tt,gen)*(xc2*IL(j,tt,gen)*IR(i,tt,gen)*Mf(tt,gen) + \
+IL(i,tt,gen)*(MGl*(xc0 + xc2)*IL(j,tt,gen) + (xc0 + xc1 + \
+xc2)*IR(j,tt,gen)*Mf(tt,gen)))*MNeu(1)) -
+ - ELc(1,j,tt,gen)*(IR(j,tt,gen)*Mf(tt,gen)*(MGl*xc1*IR(i,tt,gen) + (xc0 \
++ xc1)*IL(i,tt,gen)*Mf(tt,gen)) +
+ - IL(j,tt,gen)*(MGl*xc0*IL(i,tt,gen)*Mf(tt,gen) + IR(i,tt,gen)*(xb0 \
++ xc1*Mf(tt,gen)**2 + xc2*MNeu(1)**2 + xc0*MSf(j,tt,gen)**2)))\
+\>", "Output",
+ CellChangeTimes->{3.612071672483116*^9, 3.612076685406046*^9,
+ 3.612077344883564*^9, 3.61207741073053*^9, 3.612077873602068*^9,
+ 3.613298708154604*^9, 3.6133024713817053`*^9, 3.6137129377880783`*^9,
+ 3.613797985295199*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ARV6", "//.", "ruleV6"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.612071649059814*^9, 3.612071653995406*^9}}],
+
+Cell["\<\
+ -(ELc(1,j,tt,gen)*(xc2*IL(i,tt,gen)*IR(j,tt,gen)*Mf(tt,gen) + \
+IR(i,tt,gen)*(MGl*(xc0 + xc2)*IR(j,tt,gen) + (xc0 + xc1 + \
+xc2)*IL(j,tt,gen)*Mf(tt,gen)))*MNeu(1)) -
+ - ER(1,j,tt,gen)*(IR(i,tt,gen)*Mf(tt,gen)*(MGl*xc0*IR(j,tt,gen) + (xc0 \
++ xc1)*IL(j,tt,gen)*Mf(tt,gen)) +
+ - IL(i,tt,gen)*(MGl*xc1*IL(j,tt,gen)*Mf(tt,gen) + IR(j,tt,gen)*(xb0 \
++ xc1*Mf(tt,gen)**2 + xc2*MNeu(1)**2 + xc0*MSf(j,tt,gen)**2)))\
+\>", "Output",
+ CellChangeTimes->{3.612071673606238*^9, 3.612076686494978*^9,
+ 3.612077346107664*^9, 3.612077411792329*^9, 3.6120778745753202`*^9,
+ 3.6132987096462393`*^9, 3.6133024725909033`*^9, 3.613712939000516*^9,
+ 3.613797987198003*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["V7: Squark-Gluon (Ingoing Squark) p.167", "Section",
+ CellChangeTimes->{{3.611996061944233*^9, 3.611996096167536*^9}, {
+ 3.6119961295041513`*^9, 3.611996130135291*^9}, {3.611996172166979*^9,
+ 3.6119961763910303`*^9}, {3.611996459213202*^9, 3.611996460893201*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Parameter identification", "Subsection",
+ CellChangeTimes->{{3.611996206528729*^9, 3.611996214102594*^9}, {
+ 3.612094156896542*^9, 3.6120941579276333`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ruleV7", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"M0", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"m1", " ", "\[Rule]", " ",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",", " ",
+ RowBox[{"m3", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g0", " ", "\[Rule]",
+ RowBox[{"-", "gs"}]}], " ", ",",
+ RowBox[{"g1L", " ", "\[Rule]", " ",
+ RowBox[{"ELc", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g1R", " ", "\[Rule]", " ",
+ RowBox[{"ER", "[",
+ RowBox[{"1", ",", "i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2L", " ", "\[Rule]", " ",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"g2R", " ", "\[Rule]",
+ RowBox[{"-", "gs"}]}], ",",
+ RowBox[{"p12", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"MNeu", "[", "1", "]"}], "^", "2"}]}], ",",
+ RowBox[{"p32", "\[Rule]",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p1p3", " ", "\[Rule]", " ",
+ RowBox[{"-", "p1p2"}]}], ",", " ",
+ RowBox[{"B0", "\[Rule]", " ", "xb0"}], ",",
+ RowBox[{"C0", " ", "\[Rule]", " ", "xc0"}], ",",
+ RowBox[{"C1", " ", "\[Rule]", " ", "xc1"}], ",",
+ RowBox[{"C2", " ", "\[Rule]", " ", "xc2"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6137979178397427`*^9, 3.6137979180328693`*^9}, {
+ 3.613797998463808*^9, 3.613798001431828*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Vertex result", "Subsection",
+ CellChangeTimes->{{3.611996194319227*^9, 3.6119961981023912`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ALV7", " ", "=",
+ RowBox[{"g0", "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"B0", "+",
+ RowBox[{
+ RowBox[{"M0", "^", "2"}], " ", "*", "C0"}], "+",
+ RowBox[{"2", " ", "*", "p12", "*", " ", "C1"}], "-",
+ RowBox[{"p32", "*", " ", "C2"}], "+",
+ RowBox[{"4", "*", "p1p3", "*", " ", "C2"}]}], ")"}], "*", "g1L", " ",
+ "*", "g2R"}], "+",
+ RowBox[{"M0", " ", "*", "m3", "*", " ",
+ RowBox[{"(",
+ RowBox[{"C0", "-", "C2"}], ")"}], "*", "g1L", " ", "*", "g2L"}], "+",
+
+ RowBox[{"M0", "*", " ", "m1", "*", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], "*", "C0"}], "-", "C1"}], ")"}], "*", "g1R",
+ "*", " ", "g2R"}], "-",
+ RowBox[{"m1", "*", " ", "m3", "*", " ",
+ RowBox[{"(",
+ RowBox[{"C1", "+",
+ RowBox[{"2", "*", "C2"}]}], ")"}], "*", "g1R", "*", " ", "g2L"}]}],
+ ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6120705427769117`*^9, 3.61207054286392*^9}, {
+ 3.612071563510126*^9, 3.612071563589484*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ARV7", "=", " ",
+ RowBox[{"ALV7", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.612070545192462*^9, 3.6120705468486433`*^9}, {
+ 3.6120715654801807`*^9, 3.612071567271525*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Fortran result", "Subsection",
+ CellChangeTimes->{{3.611999298279068*^9, 3.611999307046503*^9},
+ 3.611999368814135*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ALV7", "//.", "ruleV7"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.61207122646244*^9, 3.612071226567569*^9}, {
+ 3.612071279991488*^9, 3.612071280183166*^9}, {3.612071576709178*^9,
+ 3.6120715784061337`*^9}}],
+
+Cell["\<\
+-(gs**2*(2*(xc0 + xc1 + xc2)*ER(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) - \
+ELc(1,i,tt,gen)*(xb0 - 4*p1p2*xc2 + 2*(xc0 - xc2)*Mf(tt,gen)**2 + \
+2*xc1*MNeu(1)**2)))\
+\>", "Output",
+ CellChangeTimes->{{3.612071227466836*^9, 3.6120712444072742`*^9}, {
+ 3.61207158583753*^9, 3.612071608859747*^9}, 3.612072603072455*^9,
+ 3.612094165610106*^9, {3.612094208113769*^9, 3.612094238005509*^9},
+ 3.612239150241497*^9, 3.613712978670409*^9, 3.6137980100188627`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ARV7", "//.", "ruleV7"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.61207126143911*^9, 3.612071284368185*^9}, {
+ 3.612071581413105*^9, 3.612071583285234*^9}}],
+
+Cell["\<\
+-(gs**2*(2*(xc0 + xc1 + xc2)*ELc(1,i,tt,gen)*Mf(tt,gen)*MNeu(1) - \
+ER(1,i,tt,gen)*(xb0 - 4*p1p2*xc2 + 2*(xc0 - xc2)*Mf(tt,gen)**2 + \
+2*xc1*MNeu(1)**2)))\
+\>", "Output",
+ CellChangeTimes->{
+ 3.612071262794276*^9, {3.612071584248115*^9, 3.612071610874915*^9},
+ 3.6120726054024887`*^9, 3.612094167412073*^9, {3.61209421108877*^9,
+ 3.612094238965962*^9}, 3.61223915163243*^9, 3.61371297972841*^9,
+ 3.613798011854266*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["V8: Squark-Gluino (Ingoing Squark) p.161", "Section",
+ CellChangeTimes->{{3.611996061944233*^9, 3.611996098079503*^9}, {
+ 3.611996134008045*^9, 3.6119961804150343`*^9}, {3.611996468061129*^9,
+ 3.61199646964604*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Parameter identification", "Subsection",
+ CellChangeTimes->{{3.611996206528729*^9, 3.611996214102594*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ruleV8", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"M0", " ", "\[Rule]", " ",
+ RowBox[{"MSf", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"M1", "\[Rule]",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"M2", "\[Rule]", " ", "MGl"}], ",",
+ RowBox[{"m1", " ", "\[Rule]", " ",
+ RowBox[{"MNeu", "[", "1", "]"}]}], ",", " ",
+ RowBox[{"m3", " ", "\[Rule]", " ",
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}]}], ",", " ",
+ RowBox[{"g0L", " ", "\[Rule]",
+ RowBox[{"JL", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g0R", "\[Rule]", " ",
+ RowBox[{"JR", "[",
+ RowBox[{"i", ",", "tt", ",", "gen"}], "]"}]}], " ", ",",
+ RowBox[{"g1L", " ", "\[Rule]", " ",
+ RowBox[{"FL", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g1R", " ", "\[Rule]", " ",
+ RowBox[{"FR", "[",
+ RowBox[{"1", ",", "j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2L", " ", "\[Rule]", " ",
+ RowBox[{"JL", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"g2R", " ", "\[Rule]",
+ RowBox[{"JR", "[",
+ RowBox[{"j", ",", "tt", ",", "gen"}], "]"}]}], ",",
+ RowBox[{"p12", "\[Rule]", " ",
+ RowBox[{
+ RowBox[{"MNeu", "[", "1", "]"}], "^", "2"}]}], ",",
+ RowBox[{"p32", "\[Rule]",
+ RowBox[{
+ RowBox[{"Mf", "[",
+ RowBox[{"tt", ",", "gen"}], "]"}], "^", "2"}]}], ",",
+ RowBox[{"p1p3", " ", "\[Rule]", " ",
+ RowBox[{"-", "p1p2"}]}], ",", " ",
+ RowBox[{"B0", "\[Rule]", " ", "xb0"}], ",",
+ RowBox[{"C0", " ", "\[Rule]", " ", "xc0"}], ",",
+ RowBox[{"C1", " ", "\[Rule]", " ", "xc1"}], ",",
+ RowBox[{"C2", " ", "\[Rule]", " ", "xc2"}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.612075163508872*^9, 3.612075163595647*^9}, {
+ 3.612076981295506*^9, 3.612076983872656*^9}, {3.612077017374361*^9,
+ 3.6120770181047792`*^9}, {3.612077113512319*^9, 3.6120771295444202`*^9}, {
+ 3.6120795786359243`*^9, 3.612079594014064*^9}, {3.612083912597909*^9,
+ 3.6120839265445538`*^9}, {3.6120839838703547`*^9, 3.612084022124714*^9}, {
+ 3.613302110874261*^9, 3.613302121614496*^9}, {3.6137979207001257`*^9,
+ 3.6137979208778677`*^9}, {3.613798022218588*^9, 3.6137980259664097`*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Vertex result", "Subsection",
+ CellChangeTimes->{{3.611996194319227*^9, 3.6119961981023912`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ALV8", "=", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"-", "1"}], ")"}], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ "M1", " ", "*", "M2", "*", " ", "C0", "*", "g0L", "*", " ", "g1L", "*",
+ " ", "g2L"}], "+",
+ RowBox[{"M1", "*", " ", "m3", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C2"}], ")"}], "*", "g0L", "*", " ", "g1L", "*",
+ " ", "g2R"}], "+",
+ RowBox[{
+ "M1", "*", " ", "m1", "*", " ", "C1", "*", "g0R", "*", " ", "g1R", "*",
+ " ", "g2L"}], "+",
+ RowBox[{"M2", "*", " ", "m1", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1"}], ")"}], "*", "g0L", "*", " ", "g1R", "*",
+ " ", "g2L"}], "+",
+ RowBox[{
+ "M2", "*", " ", "m3", "*", " ", "C2", "*", "g0R", "*", " ", "g1L", "*",
+ " ", "g2R"}], "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"B0", "+",
+ RowBox[{
+ RowBox[{"M0", "^", "2"}], "*", " ", "C0"}], "+",
+ RowBox[{"p32", " ", "*", "C2"}], "+",
+ RowBox[{"p12", " ", "*", "C1"}]}], ")"}], "*", "g0R", " ", "*",
+ "g1L", " ", "*", "g2L"}], "+",
+ RowBox[{"m1", " ", "*", "m3", " ", "*",
+ RowBox[{"(",
+ RowBox[{"C0", "+", "C1", "+", "C2"}], ")"}], "*", "g0L", " ", "*",
+ "g1R", " ", "*", "g2R"}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.612072101879341*^9, 3.612072101916439*^9},
+ 3.612072150678464*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"ARV8", "=", " ",
+ RowBox[{"ALV8", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"g0L", " ", "\[Rule]", " ", "g0R"}], ",", " ",
+ RowBox[{"g0R", " ", "\[Rule]", " ", "g0L"}], ",", " ",
+ RowBox[{"g1L", "\[Rule]", "g1R"}], ",", " ",
+ RowBox[{"g1R", "\[Rule]", "g1L"}], ",", " ",
+ RowBox[{"g2L", "\[Rule]", "g2R"}], ",", " ",
+ RowBox[{"g2R", "\[Rule]", "g2L"}]}], "}"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.612072112745349*^9, 3.612072114324695*^9}, {
+ 3.61207778068541*^9, 3.612077794861321*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Fortran result", "Subsection",
+ CellChangeTimes->{{3.611999298279068*^9, 3.611999307046503*^9},
+ 3.611999370214158*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ALV8", "//.", "ruleV8"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.612072128552607*^9, 3.6120721302893667`*^9}}],
+
+Cell["\<\
+ -(FR(1,j,tt,gen)*(xc1*JL(j,tt,gen)*JR(i,tt,gen)*Mf(tt,gen) + \
+JL(i,tt,gen)*(MGl*(xc0 + xc1)*JL(j,tt,gen) + (xc0 + xc1 + \
+xc2)*JR(j,tt,gen)*Mf(tt,gen)))*MNeu(1)) -
+ - FL(1,j,tt,gen)*(JR(j,tt,gen)*Mf(tt,gen)*(MGl*xc2*JR(i,tt,gen) + (xc0 \
++ xc2)*JL(i,tt,gen)*Mf(tt,gen)) +
+ - JL(j,tt,gen)*(MGl*xc0*JL(i,tt,gen)*Mf(tt,gen) + JR(i,tt,gen)*(xb0 \
++ xc2*Mf(tt,gen)**2 + xc1*MNeu(1)**2 + xc0*MSf(j,tt,gen)**2)))\
+\>", "Output",
+ CellChangeTimes->{3.6120769909890747`*^9, 3.612077135282267*^9,
+ 3.61207779786596*^9, 3.612084035552864*^9, 3.61330248115775*^9,
+ 3.613798052595068*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[",
+ RowBox[{"Simplify", "[",
+ RowBox[{"ARV8", "//.", "ruleV8"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.612075147064639*^9, 3.6120751493367968`*^9}}],
+
+Cell["\<\
+ -(FL(1,j,tt,gen)*(xc1*JL(i,tt,gen)*JR(j,tt,gen)*Mf(tt,gen) + \
+JR(i,tt,gen)*(MGl*(xc0 + xc1)*JR(j,tt,gen) + (xc0 + xc1 + \
+xc2)*JL(j,tt,gen)*Mf(tt,gen)))*MNeu(1)) -
+ - FR(1,j,tt,gen)*(JR(i,tt,gen)*Mf(tt,gen)*(MGl*xc0*JR(j,tt,gen) + (xc0 \
++ xc2)*JL(j,tt,gen)*Mf(tt,gen)) +
+ - JL(i,tt,gen)*(MGl*xc2*JL(j,tt,gen)*Mf(tt,gen) + JR(j,tt,gen)*(xb0 \
++ xc2*Mf(tt,gen)**2 + xc1*MNeu(1)**2 + xc0*MSf(j,tt,gen)**2)))\
+\>", "Output",
+ CellChangeTimes->{3.612076992525568*^9, 3.612077137279005*^9,
+ 3.612077798670833*^9, 3.612084037266096*^9, 3.613302482634194*^9,
+ 3.6137980545165377`*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]]
+}, Open ]]
+},
+CellGrouping->Automatic,
+WindowSize->{1672, 972},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+ShowSelection->True,
+FrontEndVersion->"8.0 for Linux x86 (64-bit) (November 7, 2010)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[CellGroupData[{
+Cell[579, 22, 161, 2, 83, "Title"],
+Cell[743, 26, 237, 5, 34, "Text"],
+Cell[983, 33, 307, 6, 30, "Text"],
+Cell[CellGroupData[{
+Cell[1315, 43, 155, 2, 71, "Section"],
+Cell[CellGroupData[{
+Cell[1495, 49, 138, 2, 37, "Subsection"],
+Cell[1636, 53, 2086, 49, 50, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[3759, 107, 103, 1, 37, "Subsection"],
+Cell[3865, 110, 2871, 73, 88, "Input"],
+Cell[6739, 185, 756, 16, 30, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[7532, 206, 130, 2, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[7687, 212, 399, 7, 30, "Input"],
+Cell[8089, 221, 746, 12, 30, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[8872, 238, 302, 6, 30, "Input"],
+Cell[9177, 246, 415, 8, 30, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[9653, 261, 156, 2, 41, "Section"],
+Cell[CellGroupData[{
+Cell[9834, 267, 138, 2, 37, "Subsection"],
+Cell[9975, 271, 1365, 31, 50, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[11377, 307, 103, 1, 37, "Subsection"],
+Cell[11483, 310, 445, 12, 30, "Input"],
+Cell[11931, 324, 601, 13, 30, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[12569, 342, 128, 2, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[12722, 348, 211, 4, 30, "Input"],
+Cell[12936, 354, 432, 9, 30, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[13405, 368, 191, 4, 30, "Input"],
+Cell[13599, 374, 382, 7, 30, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[14042, 388, 152, 2, 41, "Section"],
+Cell[CellGroupData[{
+Cell[14219, 394, 138, 2, 37, "Subsection"],
+Cell[14360, 398, 2335, 54, 50, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[16732, 457, 103, 1, 37, "Subsection"],
+Cell[16838, 460, 1916, 52, 50, "Input"],
+Cell[18757, 514, 563, 13, 30, "Input"],
+Cell[19323, 529, 1667, 46, 50, "Input"],
+Cell[20993, 577, 561, 13, 30, "Input"],
+Cell[21557, 592, 1731, 47, 50, "Input"],
+Cell[23291, 641, 565, 13, 30, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[23893, 659, 128, 2, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[24046, 665, 202, 4, 30, "Input"],
+Cell[24251, 671, 449, 8, 30, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[24737, 684, 204, 4, 30, "Input"],
+Cell[24944, 690, 381, 8, 30, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[25362, 703, 200, 4, 30, "Input"],
+Cell[25565, 709, 368, 7, 30, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[25970, 721, 202, 4, 30, "Input"],
+Cell[26175, 727, 368, 7, 30, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[26580, 739, 253, 5, 30, "Input"],
+Cell[26836, 746, 337, 6, 30, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[27210, 757, 200, 4, 30, "Input"],
+Cell[27413, 763, 337, 6, 30, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[27811, 776, 153, 2, 41, "Section"],
+Cell[CellGroupData[{
+Cell[27989, 782, 112, 1, 37, "Subsection"],
+Cell[28104, 785, 2355, 55, 50, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[30496, 845, 103, 1, 37, "Subsection"],
+Cell[30602, 848, 336, 8, 30, "Input"],
+Cell[30941, 858, 561, 13, 30, "Input"],
+Cell[31505, 873, 737, 17, 30, "Input"],
+Cell[32245, 892, 558, 13, 30, "Input"],
+Cell[32806, 907, 722, 18, 30, "Input"],
+Cell[33531, 927, 561, 13, 30, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[34129, 945, 128, 2, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[34282, 951, 251, 5, 30, "Input"],
+Cell[34536, 958, 183, 2, 43, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[34756, 965, 199, 4, 30, "Input"],
+Cell[34958, 971, 177, 2, 43, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[35172, 978, 249, 5, 30, "Input"],
+Cell[35424, 985, 300, 6, 43, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[35761, 996, 253, 5, 30, "Input"],
+Cell[36017, 1003, 350, 7, 43, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[36404, 1015, 249, 5, 30, "Input"],
+Cell[36656, 1022, 329, 6, 43, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[37022, 1033, 253, 5, 30, "Input"],
+Cell[37278, 1040, 335, 6, 43, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[37674, 1053, 283, 5, 41, "Section"],
+Cell[CellGroupData[{
+Cell[37982, 1062, 112, 1, 37, "Subsection"],
+Cell[38097, 1065, 2034, 45, 50, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[40168, 1115, 103, 1, 37, "Subsection"],
+Cell[40274, 1118, 1133, 31, 30, "Input"],
+Cell[41410, 1151, 625, 13, 30, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[42072, 1169, 130, 2, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[42227, 1175, 246, 5, 30, "Input"],
+Cell[42476, 1182, 413, 8, 30, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[42926, 1195, 201, 4, 30, "Input"],
+Cell[43130, 1201, 338, 7, 30, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[43529, 1215, 525, 9, 41, "Section"],
+Cell[CellGroupData[{
+Cell[44079, 1228, 112, 1, 37, "Subsection"],
+Cell[44194, 1231, 2456, 54, 50, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[46687, 1290, 103, 1, 37, "Subsection"],
+Cell[46793, 1293, 1510, 38, 69, "Input"],
+Cell[48306, 1333, 554, 13, 30, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[48897, 1351, 130, 2, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[49052, 1357, 201, 4, 30, "Input"],
+Cell[49256, 1363, 686, 12, 62, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[49979, 1380, 199, 4, 30, "Input"],
+Cell[50181, 1386, 689, 12, 62, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[50931, 1405, 272, 3, 41, "Section"],
+Cell[CellGroupData[{
+Cell[51228, 1412, 163, 2, 37, "Subsection"],
+Cell[51394, 1416, 1609, 39, 50, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[53040, 1460, 103, 1, 37, "Subsection"],
+Cell[53146, 1463, 1155, 31, 30, "Input"],
+Cell[54304, 1496, 456, 11, 30, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[54797, 1512, 128, 2, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[54950, 1518, 298, 6, 30, "Input"],
+Cell[55251, 1526, 463, 8, 30, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[55751, 1539, 247, 5, 30, "Input"],
+Cell[56001, 1546, 438, 9, 30, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[56500, 1562, 224, 3, 41, "Section"],
+Cell[CellGroupData[{
+Cell[56749, 1569, 112, 1, 37, "Subsection"],
+Cell[56864, 1572, 2458, 54, 50, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[59359, 1631, 103, 1, 37, "Subsection"],
+Cell[59465, 1634, 1456, 38, 69, "Input"],
+Cell[60924, 1674, 575, 13, 30, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[61536, 1692, 128, 2, 37, "Subsection"],
+Cell[CellGroupData[{
+Cell[61689, 1698, 201, 4, 30, "Input"],
+Cell[61893, 1704, 613, 11, 62, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[62543, 1720, 201, 4, 30, "Input"],
+Cell[62747, 1726, 615, 11, 62, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]]
+}, Open ]]
+}
+]
+*)
+
+(* End of internal cache information *)
Property changes on: branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/DD_Vertices.nb
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Index: branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/GramDet.nb
===================================================================
--- branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/GramDet.nb (revision 0)
+++ branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/GramDet.nb (revision 1082)
@@ -0,0 +1,23619 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 8.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 157, 7]
+NotebookDataLength[ 755613, 23610]
+NotebookOptionsPosition[ 734739, 22906]
+NotebookOutlinePosition[ 735197, 22924]
+CellTagsIndexPosition[ 735154, 22921]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+
+Cell[CellGroupData[{
+Cell["Tensor reduction for vanishing Gram determinant", "Title",
+ CellChangeTimes->{{3.611995530016789*^9, 3.611995542946417*^9}, {
+ 3.611996022350602*^9, 3.611996033608444*^9}, {3.615277078388323*^9,
+ 3.6152770916194696`*^9}}],
+
+Cell[TextData[StyleBox["\t\t\tby Patrick Steppeler",
+ FontFamily->"Utopia",
+ FontSlant->"Italic"]], "Text",
+ CellChangeTimes->{{3.611996549419997*^9, 3.611996554187799*^9}, {
+ 3.611996607441195*^9, 3.611996609035804*^9}},
+ FontSize->16],
+
+Cell[CellGroupData[{
+
+Cell["Load Feyncalc\[LineSeparator]", "Section",
+ CellChangeTimes->{{3.663578565136701*^9, 3.6635785708566017`*^9},
+ 3.664600346520227*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Import", "[", "\"\<http://www.feyncalc.org/install.m\>\"",
+ "]"}]], "Input"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ RowBox[{"\<\"downloading \"\>",
+ "\[InvisibleSpace]", "\<\"http://www.feyncalc.org/download/fclatest.zip\"\
+\>", "\[InvisibleSpace]", "\<\" please wait \"\>"}],
+ SequenceForm[
+ "downloading ", "http://www.feyncalc.org/download/fclatest.zip",
+ " please wait "],
+ Editable->False], TraditionalForm]], "Print",
+ CellChangeTimes->{3.663578600805009*^9, 3.66410896670474*^9,
+ 3.6641090782259007`*^9, 3.664175266756496*^9, 3.664175770292368*^9,
+ 3.664182814936071*^9, 3.664183060723359*^9, 3.664185499066674*^9,
+ 3.664186167725594*^9, 3.6641862522819653`*^9, 3.664188478205183*^9,
+ 3.6645323591397552`*^9, 3.664535525496072*^9, 3.664600426069936*^9}],
+
+Cell[BoxData[
+ FormBox[
+ InterpretationBox[
+ RowBox[{"\<\"Downloading done, installing FeynCalc to \"\>",
+ "\[InvisibleSpace]",
+ StyleBox["\<\"/home/NWZ/p_step04/.Mathematica/Applications\"\>",
+ StripOnInput->False,
+ FontWeight->"Bold"]}],
+ SequenceForm["Downloading done, installing FeynCalc to ",
+ Style[
+ "/home/NWZ/p_step04/.Mathematica/Applications", FontWeight -> "Bold"]],
+ Editable->False], TraditionalForm]], "Print",
+ CellChangeTimes->{3.663578600805009*^9, 3.66410896670474*^9,
+ 3.6641090782259007`*^9, 3.664175266756496*^9, 3.664175770292368*^9,
+ 3.664182814936071*^9, 3.664183060723359*^9, 3.664185499066674*^9,
+ 3.664186167725594*^9, 3.6641862522819653`*^9, 3.664188478205183*^9,
+ 3.6645323591397552`*^9, 3.664535525496072*^9, 3.6646004340888367`*^9}],
+
+Cell[BoxData[
+ FormBox["\<\"installation of FeynCalc ready.\"\>", TraditionalForm]], "Print",\
+
+ CellChangeTimes->{3.663578600805009*^9, 3.66410896670474*^9,
+ 3.6641090782259007`*^9, 3.664175266756496*^9, 3.664175770292368*^9,
+ 3.664182814936071*^9, 3.664183060723359*^9, 3.664185499066674*^9,
+ 3.664186167725594*^9, 3.6641862522819653`*^9, 3.664188478205183*^9,
+ 3.6645323591397552`*^9, 3.664535525496072*^9, 3.66460047559077*^9}],
+
+Cell[BoxData[
+ FormBox["\<\"loading FeynCalc \"\>", TraditionalForm]], "Print",
+ CellChangeTimes->{3.663578600805009*^9, 3.66410896670474*^9,
+ 3.6641090782259007`*^9, 3.664175266756496*^9, 3.664175770292368*^9,
+ 3.664182814936071*^9, 3.664183060723359*^9, 3.664185499066674*^9,
+ 3.664186167725594*^9, 3.6641862522819653`*^9, 3.664188478205183*^9,
+ 3.6645323591397552`*^9, 3.664535525496072*^9, 3.664600475592517*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell["\<\
+Loading FeynCalc from \
+/home/p0klasen/p_step04/.Mathematica/Applications/HighEnergyPhysics\
+\>", "Text",
+ CellMargins->{{Inherited, Inherited}, {1, 0}},
+ GeneratedCell->True,
+ CellAutoOverwrite->True,
+ CellChangeTimes->{3.6646004756307096`*^9}],
+
+Cell[TextData[{
+ StyleBox["FeynCalc",
+ FontWeight->"Bold"],
+ " ",
+ "8.2.0",
+ " For help, type ?FeynCalc, open ",
+ ButtonBox["FeynCalcRef8.nb",
+ BaseStyle->"AddOnsLink",
+ ButtonFunction:>NotebookOpen[
+ "/home/p0klasen/p_step04/.Mathematica/Applications/HighEnergyPhysics/\
+Documentation/English/FeynCalcRef8.nb"],
+ ButtonData:>{"Short Overview", "intro"},
+ ButtonNote->"Open FeynCalcRef8.nb"],
+ " or visit ",
+ ButtonBox["www.feyncalc.org",
+ BaseStyle->"Hyperlink",
+ ButtonData:>{
+ URL["http://www.feyncalc.org/"], None},
+ ButtonNote->"http://www.feyncalc.org/"]
+}], "Text",
+ CellMargins->{{Inherited, Inherited}, {1, 0}},
+ GeneratedCell->True,
+ CellAutoOverwrite->True,
+ CellChangeTimes->{3.664600476921851*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["General definitions for C functions", "Section",
+ CellChangeTimes->{{3.61527891874927*^9, 3.615278923028825*^9}, {
+ 3.6635784933131847`*^9, 3.663578507257085*^9}}],
+
+Cell["Should be given in every case", "Text",
+ CellChangeTimes->{{3.6152798888624163`*^9, 3.615279901118*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"A", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"p1", "^", "2"}], ",", " ", "p1p2"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"p1p2", ",", " ",
+ RowBox[{"p2", "^", "2"}]}], "}"}]}], "}"}]}], ";", " ",
+ RowBox[{"MatrixForm", "[", "A", "]"}]}]], "Input"],
+
+Cell[BoxData[
+ FormBox[
+ TagBox[
+ RowBox[{"(", "\[NoBreak]", GridBox[{
+ {
+ SuperscriptBox["p1", "2"], "p1p2"},
+ {"p1p2",
+ SuperscriptBox["p2", "2"]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.7]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6152789329022007`*^9, 3.663578354519348*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Det", "[", "A", "]"}]], "Input",
+ CellChangeTimes->{{3.615279365808464*^9, 3.615279367915862*^9}, {
+ 3.6152799090327806`*^9, 3.615279912249011*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}], "-",
+ SuperscriptBox["p1p2", "2"]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.61527991460363*^9, 3.663578355677309*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Inverse", "[", "A", "]"}]], "Input",
+ CellChangeTimes->{{3.615278938392791*^9, 3.615278941128437*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"(", "\[NoBreak]", GridBox[{
+ {
+ FractionBox[
+ SuperscriptBox["p2", "2"],
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}], "-",
+ SuperscriptBox["p1p2", "2"]}]],
+ RowBox[{"-",
+ FractionBox["p1p2",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}], "-",
+ SuperscriptBox["p1p2", "2"]}]]}]},
+ {
+ RowBox[{"-",
+ FractionBox["p1p2",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}], "-",
+ SuperscriptBox["p1p2", "2"]}]]}],
+ FractionBox[
+ SuperscriptBox["p1", "2"],
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}], "-",
+ SuperscriptBox["p1p2", "2"]}]]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.7]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.61527894190847*^9, 3.6635783572593727`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"X", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Inverse", "[", "A", "]"}], "*",
+ RowBox[{"Det", "[", "A", "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.615279269869441*^9, 3.615279318358994*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"(", "\[NoBreak]", GridBox[{
+ {
+ SuperscriptBox["p2", "2"],
+ RowBox[{"-", "p1p2"}]},
+ {
+ RowBox[{"-", "p1p2"}],
+ SuperscriptBox["p1", "2"]}
+ },
+ GridBoxAlignment->{
+ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.7]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.615279319453723*^9, 3.663578358624214*^9}]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"x11", " ", "=", " ",
+ RowBox[{"p2", "^", "2"}]}], ";",
+ RowBox[{"x12", " ", "=", " ",
+ RowBox[{"-", "p1p2"}]}], ";", " ",
+ RowBox[{"x21", " ", "=", " ",
+ RowBox[{"-", "p1p2"}]}], ";",
+ RowBox[{"x22", " ", "=",
+ RowBox[{"p1", "^", "2"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.615279327739444*^9, 3.615279356638246*^9}, {
+ 3.615279686253141*^9, 3.615279704124374*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"C00", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}], "*",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"m0", "^", "2"}], "*", "C0"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "+",
+ RowBox[{"f1", "*", "C1"}], " ", "+", " ",
+ RowBox[{"f2", "*", "C2"}]}], ")"}]}]}], ")"}]}]}], ";"}]], "Input"]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["C1 & C2 standard method", "Section",
+ CellChangeTimes->{{3.615277155683508*^9, 3.61527715591512*^9}, {
+ 3.615277822910787*^9, 3.61527783442321*^9}, {3.6635785110410147`*^9,
+ 3.6635785144250813`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Definitions", "Subsection",
+ CellChangeTimes->{{3.615277191427412*^9, 3.615277193754723*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0", "[",
+ RowBox[{"0", ",", "2"}], "]"}], " ", "-", " ",
+ RowBox[{"B0", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"f1", "*", "C0"}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6152771961828613`*^9, 3.615277280976729*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0", "[",
+ RowBox[{"0", ",", "1"}], "]"}], " ", "-", " ",
+ RowBox[{"B0", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"f2", "*", "C0"}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6152772838274517`*^9, 3.615277303376835*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"CVec1", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{"C1", ",", "C2"}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{3.61527829883197*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"RVec1", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{"R1", ",", "R2"}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.615278300847876*^9, 3.615278303062937*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Calculations", "Subsection",
+ CellChangeTimes->{{3.615278063189913*^9, 3.6152780665731688`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", ".", "CVec1"}], " ", "\[Equal]", " ", "RVec1"}], ",", " ",
+ "CVec1"}], "]"}]], "Input",
+ CellChangeTimes->{{3.615277696794279*^9, 3.6152777318751183`*^9}, {
+ 3.615278306583164*^9, 3.615278308695793*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C1", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ", "p1p2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B0", "(",
+ RowBox[{"0", ",", "1"}], ")"}]}], "+",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C0", " ", "f2"}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ SuperscriptBox["p2", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B0", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C0", " ", "f1"}]}], ")"}]}]}],
+ RowBox[{
+ SuperscriptBox["p1p2", "2"], "-",
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}]}]]}]}], ",",
+ RowBox[{"C2", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ RowBox[{"B0", "(",
+ RowBox[{"0", ",", "1"}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"p1p2", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"p1p2", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"C0", " ", "f1", " ", "p1p2"}], "-",
+ RowBox[{"C0", " ", "f2", " ",
+ SuperscriptBox["p1", "2"]}]}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["p1p2", "2"], "-",
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}]}], ")"}]}]]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.615277734545972*^9, 3.6152781502705917`*^9,
+ 3.6152783141410437`*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["C00, C11, C12 & C22 standard method", "Section",
+ CellChangeTimes->{{3.6152778876062527`*^9, 3.6152779037743587`*^9}, {
+ 3.663578517480948*^9, 3.6635785194969473`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Definitions", "Subsection",
+ CellChangeTimes->{{3.61527876202277*^9, 3.6152787638222*^9},
+ 3.615279677575471*^9}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B1", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "+", " ",
+ RowBox[{"B0", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"f1", "*", "C1"}], " ", "-",
+ RowBox[{"2", "C00"}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6152781596382017`*^9, 3.615278203259701*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B1", "[",
+ RowBox[{"0", ",", "1"}], "]"}], " ", "+", " ",
+ RowBox[{"B1", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "+", " ",
+ RowBox[{"B0", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-", " ",
+ RowBox[{"f2", "*", "C1"}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.615278212003104*^9, 3.61527825700298*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R5", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B1", "[",
+ RowBox[{"0", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"B1", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"f1", "*", "C2"}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.615278318986771*^9, 3.615278354257896*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R6", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B1", "[",
+ RowBox[{"1", ",", "2"}], "]"}]}], " ", "-",
+ RowBox[{"f2", "*", "C2"}], " ", "-",
+ RowBox[{"2", "C00"}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6152783628215027`*^9, 3.61527839000156*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"CVec2", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{"C11", ",", "C12"}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6152784150281487`*^9, 3.615278424526915*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"CVec3", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{"C12", ",", "C22"}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6152784278056507`*^9, 3.615278430939159*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"RVec2", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{"R3", ",", "R4"}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.6152784334108057`*^9, 3.6152784416382093`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"RVec3", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{"R5", ",", "R6"}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.61527844498871*^9, 3.615278452128621*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Calculations", "Subsection",
+ CellChangeTimes->{{3.615278770654291*^9, 3.615278773582127*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", ".", "CVec2"}], " ", "\[Equal]", " ", "RVec2"}], ",", " ",
+ "CVec2"}], "]"}]], "Input",
+ CellChangeTimes->{{3.61527881624251*^9, 3.6152788201537657`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C11", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ SuperscriptBox["p2", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C1", " ", "f1"}], "+",
+ RowBox[{"C2", " ", "f2"}]}], ")"}]}], "+",
+ RowBox[{"C0", " ",
+ SuperscriptBox["m0", "2"]}]}], ")"}]}],
+ RowBox[{"D", "-", "2"}]], "-",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "-",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C1", " ", "f1"}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ", "p1p2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "1"}], ")"}], "-",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C1", " ", "f2"}]}], ")"}]}]}],
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}], "-",
+ SuperscriptBox["p1p2", "2"]}]]}]}], ",",
+ RowBox[{"C12", "\[Rule]",
+ RowBox[{
+ FractionBox[
+ RowBox[{"p1p2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ SuperscriptBox["p2", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C1", " ", "f1"}], "+",
+ RowBox[{"C2", " ", "f2"}]}], ")"}]}], "+",
+ RowBox[{"C0", " ",
+ SuperscriptBox["m0", "2"]}]}], ")"}]}],
+ RowBox[{"D", "-", "2"}]], "-",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "-",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C1", " ", "f1"}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ", "p1p2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "1"}], ")"}], "-",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C1", " ", "f2"}]}], ")"}]}]}], ")"}]}],
+ RowBox[{
+ SuperscriptBox["p2", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}], "-",
+ SuperscriptBox["p1p2", "2"]}], ")"}]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "1"}], ")"}], "-",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C1", " ", "f2"}]}],
+ RowBox[{"2", " ",
+ SuperscriptBox["p2", "2"]}]]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6152788225177183`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"A", ".", "CVec3"}], " ", "\[Equal]", " ", "RVec3"}], ",", " ",
+ "CVec3"}], "]"}]], "Input",
+ CellChangeTimes->{{3.6152788623945627`*^9, 3.615278867370063*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C12", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ", "p1p2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C1", " ", "f1"}], "+",
+ RowBox[{"C2", " ", "f2"}]}], ")"}]}], "+",
+ RowBox[{"C0", " ",
+ SuperscriptBox["m0", "2"]}]}], ")"}]}],
+ RowBox[{"D", "-", "2"}]], "+",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C2", " ", "f2"}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ SuperscriptBox["p2", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C2", " ", "f1"}]}], ")"}]}]}],
+ RowBox[{
+ SuperscriptBox["p1p2", "2"], "-",
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}]}]]}]}], ",",
+ RowBox[{"C22", "\[Rule]",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ", "p1p2", " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C1", " ", "f1"}], "+",
+ RowBox[{"C2", " ", "f2"}]}], ")"}]}], "+",
+ RowBox[{"C0", " ",
+ SuperscriptBox["m0", "2"]}]}], ")"}]}],
+ RowBox[{"D", "-", "2"}]], "+",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C2", " ", "f2"}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ SuperscriptBox["p2", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C2", " ", "f1"}]}], ")"}]}]}], ")"}]}],
+ RowBox[{"p1p2", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["p1p2", "2"], "-",
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ SuperscriptBox["p2", "2"]}]}], ")"}]}]], "-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}], "+",
+ RowBox[{"C2", " ", "f1"}]}],
+ RowBox[{"2", " ", "p1p2"}]]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.615278868593482*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["C0 extended method", "Section",
+ CellChangeTimes->{{3.6152778500944853`*^9, 3.6152778552062883`*^9}, {
+ 3.663578522232944*^9, 3.663578524592901*^9}}],
+
+Cell[CellGroupData[{
+
+Cell["Definitions", "Subsection",
+ CellChangeTimes->{{3.6152792414435053`*^9, 3.615279243099992*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R1", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0", "[",
+ RowBox[{"0", ",", "2"}], "]"}], " ", "-", " ",
+ RowBox[{"B0", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"f1", "*", "C0"}]}], ")"}]}]}], ";"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0", "[",
+ RowBox[{"0", ",", "1"}], "]"}], " ", "-", " ",
+ RowBox[{"B0", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"f2", "*", "C0"}]}], ")"}]}]}], ";"}]], "Input"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["Calculations", "Subsection",
+ CellChangeTimes->{{3.61527924669914*^9, 3.6152792486027412`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"x11", "*", "R1"}], " ", "+", " ",
+ RowBox[{"x12", "*", "R2"}]}], " ", "\[Equal]", "0"}], ",", "C0"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.615279375878709*^9, 3.6152794030369453`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{"C0", "\[Rule]",
+ FractionBox[
+ RowBox[{
+ RowBox[{"p1p2", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"0", ",", "1"}], ")"}]}], "-",
+ RowBox[{"p1p2", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox["p2", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"B0", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox["p2", "2"], " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}]}],
+ RowBox[{
+ RowBox[{"f2", " ", "p1p2"}], "-",
+ RowBox[{"f1", " ",
+ SuperscriptBox["p2", "2"]}]}]]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.615279403740529*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"x21", "*", "R1"}], " ", "+", " ",
+ RowBox[{"x22", "*", "R2"}]}], " ", "\[Equal]", "0"}], ",", "C0"}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.615279479988988*^9, 3.6152794815653763`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{"C0", "\[Rule]",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ RowBox[{"B0", "(",
+ RowBox[{"0", ",", "1"}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox["p1", "2"], " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"p1p2", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"p1p2", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}]}],
+ RowBox[{
+ RowBox[{"f2", " ",
+ SuperscriptBox["p1", "2"]}], "-",
+ RowBox[{"f1", " ", "p1p2"}]}]]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6152794825361433`*^9}]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["C1 & C2 extended method", "Section",
+ CellChangeTimes->{{3.615277163451227*^9, 3.6152771667950993`*^9}, {
+ 3.6152778391505747`*^9, 3.615277844454358*^9}, {3.663578527744885*^9,
+ 3.6635785299768877`*^9}}],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B1", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "+", " ",
+ RowBox[{"B0", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"f1", "*", "C1"}], " ", "-",
+ RowBox[{"2", "C00"}]}], ")"}]}]}], ";"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B1", "[",
+ RowBox[{"0", ",", "1"}], "]"}], " ", "+", " ",
+ RowBox[{"B1", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "+", " ",
+ RowBox[{"B0", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-", " ",
+ RowBox[{"f2", "*", "C1"}]}], ")"}]}]}], ";"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R5", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B1", "[",
+ RowBox[{"0", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"B1", "[",
+ RowBox[{"1", ",", "2"}], "]"}], " ", "-",
+ RowBox[{"f1", "*", "C2"}]}], ")"}]}]}], ";"}]], "Input"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"R6", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B1", "[",
+ RowBox[{"1", ",", "2"}], "]"}]}], " ", "-",
+ RowBox[{"f2", "*", "C2"}], " ", "-",
+ RowBox[{"2", "C00"}]}], ")"}]}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.615282966301281*^9, 3.615282968900159*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"x11", "*", "R3"}], " ", "+", " ",
+ RowBox[{"x12", "*", "R4"}]}], " ", "\[Equal]", " ", "0"}], " ", "&&",
+ " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"x11", "*", "R5"}], " ", "+", " ",
+ RowBox[{"x12", "*", "R6"}]}], " ", "\[Equal]", " ", "0"}]}], ",", " ",
+ RowBox[{"{",
+ RowBox[{"C1", ",", "C2"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.615280157012027*^9, 3.615280186455976*^9}, {
+ 3.6152802279673977`*^9, 3.6152802712029333`*^9}, {3.615282658935595*^9,
+ 3.6152826888296623`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C1", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"f2", " ", "x12"}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "-",
+ FractionBox[
+ RowBox[{"f1", " ", "x11"}], "2"], "-",
+ FractionBox[
+ RowBox[{"f2", " ", "x12"}], "2"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"x11", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x11", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x12", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x11", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x12", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "1"}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x12", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ FractionBox[
+ RowBox[{"C0", " ",
+ SuperscriptBox["m0", "2"], " ", "x11"}],
+ RowBox[{"D", "-", "2"}]]}], ")"}]}]}], "-",
+ FractionBox[
+ RowBox[{"f2", " ", "x11", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"x12", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x11", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x11", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x12", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ FractionBox[
+ RowBox[{"C0", " ",
+ SuperscriptBox["m0", "2"], " ", "x12"}],
+ RowBox[{"D", "-", "2"}]]}], ")"}]}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}],
+ RowBox[{
+ FractionBox[
+ RowBox[{"f1", " ", "f2", " ", "x11", " ", "x12"}],
+ RowBox[{"4", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}], "2"]}]], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"f1", " ", "x11"}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "-",
+ FractionBox[
+ RowBox[{"f1", " ", "x11"}], "2"], "-",
+ FractionBox[
+ RowBox[{"f2", " ", "x12"}], "2"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"f2", " ", "x12"}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "-",
+ FractionBox[
+ RowBox[{"f1", " ", "x11"}], "2"], "-",
+ FractionBox[
+ RowBox[{"f2", " ", "x12"}], "2"]}], ")"}]}]}]]}]}], ",",
+ RowBox[{"C2", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D", "-", "1"}], ")"}], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"f1", " ", "x11"}], "+",
+ RowBox[{"f2", " ", "x12"}]}], ")"}], "2"]}]],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "f1", " ", "x11", " ", "x12", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x12", "2"], " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"f2", " ",
+ SuperscriptBox["x12", "2"], " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"D", " ", "f1", " ",
+ SuperscriptBox["x11", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"D", " ", "f1", " ",
+ SuperscriptBox["x11", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"D", " ", "f1", " ", "x11", " ", "x12", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"D", " ", "f2", " ", "x11", " ", "x12", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"D", " ", "f2", " ", "x11", " ", "x12", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"D", " ", "f2", " ",
+ SuperscriptBox["x12", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x11", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "-",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x11", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x12", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "1"}], ")"}]}], "+",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x12", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"2", " ", "f2", " ", "x11", " ", "x12", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "-",
+ RowBox[{"2", " ", "f2", " ", "x11", " ", "x12", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"2", " ", "f2", " ",
+ SuperscriptBox["x12", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"2", " ", "C0", " ", "f1", " ",
+ SuperscriptBox["m0", "2"], " ", "x11", " ", "x12"}], "+",
+ RowBox[{"2", " ", "C0", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox["x12", "2"]}]}], ")"}]}]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.615280187813019*^9, 3.6152802359417067`*^9, 3.615280272214902*^9, {
+ 3.615282660671945*^9, 3.615282690275264*^9}, 3.615282982510316*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"x21", "*", "R3"}], " ", "+", " ",
+ RowBox[{"x22", "*", "R4"}]}], " ", "\[Equal]", " ", "0"}], " ", "&&",
+ " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"x21", "*", "R5"}], " ", "+", " ",
+ RowBox[{"x22", "*", "R6"}]}], " ", "\[Equal]", " ", "0"}]}], ",", " ",
+ RowBox[{"{",
+ RowBox[{"C1", ",", "C2"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.6152803106147747`*^9, 3.615280316590362*^9}, {
+ 3.61528111140351*^9, 3.615281135266227*^9}, {3.615282725022521*^9,
+ 3.615282731421658*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C1", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"f2", " ", "x22"}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "-",
+ FractionBox[
+ RowBox[{"f1", " ", "x21"}], "2"], "-",
+ FractionBox[
+ RowBox[{"f2", " ", "x22"}], "2"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"x21", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x21", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x22", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x21", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x22", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "1"}], ")"}]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x22", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ FractionBox[
+ RowBox[{"C0", " ",
+ SuperscriptBox["m0", "2"], " ", "x21"}],
+ RowBox[{"D", "-", "2"}]]}], ")"}]}]}], "-",
+ FractionBox[
+ RowBox[{"f2", " ", "x21", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"x22", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "+",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x21", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x21", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ", "x22", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ FractionBox[
+ RowBox[{"C0", " ",
+ SuperscriptBox["m0", "2"], " ", "x22"}],
+ RowBox[{"D", "-", "2"}]]}], ")"}]}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}],
+ RowBox[{
+ FractionBox[
+ RowBox[{"f1", " ", "f2", " ", "x21", " ", "x22"}],
+ RowBox[{"4", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}], "2"]}]], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"f1", " ", "x21"}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "-",
+ FractionBox[
+ RowBox[{"f1", " ", "x21"}], "2"], "-",
+ FractionBox[
+ RowBox[{"f2", " ", "x22"}], "2"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"f2", " ", "x22"}],
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{"D", "-", "2"}], ")"}]}]]}], "-",
+ FractionBox[
+ RowBox[{"f1", " ", "x21"}], "2"], "-",
+ FractionBox[
+ RowBox[{"f2", " ", "x22"}], "2"]}], ")"}]}]}]]}]}], ",",
+ RowBox[{"C2", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D", "-", "1"}], ")"}], " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"f1", " ", "x21"}], "+",
+ RowBox[{"f2", " ", "x22"}]}], ")"}], "2"]}]],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "f1", " ", "x21", " ", "x22", " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x22", "2"], " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"f2", " ",
+ SuperscriptBox["x22", "2"], " ",
+ RowBox[{"B0", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"D", " ", "f1", " ",
+ SuperscriptBox["x21", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"D", " ", "f1", " ",
+ SuperscriptBox["x21", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"D", " ", "f1", " ", "x21", " ", "x22", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"D", " ", "f2", " ", "x21", " ", "x22", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "+",
+ RowBox[{"D", " ", "f2", " ", "x21", " ", "x22", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"D", " ", "f2", " ",
+ SuperscriptBox["x22", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x21", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "-",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x21", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x22", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "1"}], ")"}]}], "+",
+ RowBox[{"f1", " ",
+ SuperscriptBox["x22", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"2", " ", "f2", " ", "x21", " ", "x22", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"0", ",", "2"}], ")"}]}], "-",
+ RowBox[{"2", " ", "f2", " ", "x21", " ", "x22", " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "-",
+ RowBox[{"2", " ", "f2", " ",
+ SuperscriptBox["x22", "2"], " ",
+ RowBox[{"B1", "(",
+ RowBox[{"1", ",", "2"}], ")"}]}], "+",
+ RowBox[{"2", " ", "C0", " ", "f1", " ",
+ SuperscriptBox["m0", "2"], " ", "x21", " ", "x22"}], "+",
+ RowBox[{"2", " ", "C0", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox["x22", "2"]}]}], ")"}]}]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.615280317399639*^9, {3.615281121292301*^9, 3.615281136453265*^9},
+ 3.6152827323343897`*^9, 3.615283062766238*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["C00, C11, C12 & C22 extended method", "Section",
+ CellChangeTimes->{{3.6152779079901657`*^9, 3.615277924766677*^9}, {
+ 3.663578533232854*^9, 3.663578535432835*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Cmunurho", " ", "=", " ",
+ RowBox[{
+ RowBox[{"C111", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"C222", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}]}]}], ")"}], "C001"}], " ", "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}]}]}], ")"}], "C002"}], " ", "+",
+ " ", "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}]}]}], ")"}], "C112"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}]}]}], ")"}], "C122"}]}]}]], "Input",\
+
+ CellChangeTimes->{{3.664106496187442*^9, 3.66410686652923*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"C001", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"C002", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"C111", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C112", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"C122", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"C222", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6641752291795177`*^9, 3.664175304869422*^9,
+ 3.664175815884429*^9, 3.6641828462961617`*^9, 3.6641830936447897`*^9,
+ 3.664185534337391*^9, 3.664186198658161*^9, 3.664186283693076*^9,
+ 3.6641885091143627`*^9, 3.66453239325694*^9, 3.6645355583555403`*^9,
+ 3.664537048397388*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Cnurho", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "C00"}], " ", "+", " ",
+ RowBox[{"C11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"C22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+",
+ RowBox[{"C12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.664108856087068*^9, 3.664108927855776*^9}, {
+ 3.6641091263891983`*^9, 3.664109145349449*^9}, {3.6641108905059547`*^9,
+ 3.664110928018074*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"C00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"C11", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"C22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.664108907403302*^9, 3.664108930002857*^9},
+ 3.664109030250636*^9, 3.6641091141730757`*^9, 3.66410914848437*^9,
+ 3.6641109328869743`*^9, 3.664175231028657*^9, 3.664175306051971*^9,
+ 3.664175816841023*^9, 3.664182846505044*^9, 3.66418309391112*^9,
+ 3.6641855345961657`*^9, 3.664186198818675*^9, 3.664186283874723*^9,
+ 3.664188509338224*^9, 3.664532393455841*^9, 3.664535558571474*^9,
+ 3.664537049230884*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Bnurho12", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "B0012"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "B012"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}]}], ")"}], "B112"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}]}], ")"}],
+ "B1112"}]}]}]], "Input",
+ CellChangeTimes->{{3.664109382841782*^9, 3.664109466691843*^9}, {
+ 3.6641095035394697`*^9, 3.664109578944243*^9}, {3.66410960980612*^9,
+ 3.6641096098934193`*^9}, {3.664110288470839*^9, 3.6641103225306597`*^9},
+ 3.66411097027591*^9, {3.664111017214576*^9, 3.66411101885038*^9}, {
+ 3.664182634460864*^9, 3.664182783314884*^9}, {3.664188242225582*^9,
+ 3.664188243442535*^9}, {3.664188335334296*^9, 3.664188343946371*^9}, {
+ 3.664188383410738*^9, 3.6641884122925863`*^9}, 3.664532409653187*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"B0012", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"B1112", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"B112", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6641884133102713`*^9, 3.664188509503934*^9,
+ 3.66453241273962*^9, 3.664535558731751*^9, 3.664537049916107*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T1contract", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Contract", "[",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ".", "Cmunurho"}], "]"}], " ",
+ "+", " ",
+ RowBox[{
+ RowBox[{"1", "/", "6"}],
+ RowBox[{"(", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], " ", "+", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.664106985046599*^9, 3.664107008669231*^9}, {
+ 3.6641854321359577`*^9, 3.6641854686581593`*^9}, {3.664186129285128*^9,
+ 3.6641861320845213`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"6", " ", "C001", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"6", " ", "C002", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C111", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ", "C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C122", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ", "C122", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C222", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], "+",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6641103980776033`*^9, 3.66411051171964*^9,
+ 3.664111027928069*^9, 3.664175232784692*^9, 3.664175307767644*^9,
+ 3.664175818350037*^9, 3.664182851542282*^9, 3.664183094809452*^9,
+ 3.664185470186369*^9, 3.664185535498633*^9, 3.6641856936384478`*^9,
+ 3.6641861414237137`*^9, 3.66418619952774*^9, 3.66418628478026*^9,
+ 3.66418850972197*^9, 3.664532490315522*^9, 3.664535558908493*^9,
+ 3.664537050616205*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T2contract", " ", "=", " ",
+ RowBox[{"Contract", "[",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}], ".", "Cmunurho"}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{{3.6641073880118723`*^9, 3.6641073959800158`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"C001", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"2", " ", "C001", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C002", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C002", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C002", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C111", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C122", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C122", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C122", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C222", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.664107397409011*^9, 3.6641091146025467`*^9, 3.664110398975359*^9,
+ 3.664110514405616*^9, 3.6641110285561523`*^9, 3.66417523733427*^9,
+ 3.664175308586969*^9, 3.664175819136915*^9, 3.6641828553452063`*^9,
+ 3.664183094993228*^9, 3.6641855357336082`*^9, {3.664185675169251*^9,
+ 3.66418569454828*^9}, 3.664186205134891*^9, 3.66418628499161*^9,
+ 3.6641885099097977`*^9, 3.664533529763541*^9, 3.664535559155321*^9,
+ 3.664537051294117*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T3contract", " ", "=", " ",
+ RowBox[{"Contract", "[",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}], ".", "Cmunurho"}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{{3.6641074119079113`*^9, 3.6641074152597847`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"C001", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C001", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C001", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C002", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"2", " ", "C002", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C111", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C122", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C122", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C122", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C222", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664107416105527*^9, 3.664109114777914*^9,
+ 3.664110399867978*^9, 3.6641105194410686`*^9, 3.6641110291971197`*^9,
+ 3.664175239384676*^9, 3.664175309305263*^9, 3.664175819831815*^9,
+ 3.66418285632358*^9, 3.664183095175185*^9, 3.664185535911881*^9,
+ 3.664185695381708*^9, 3.6641862064044933`*^9, 3.664186285197063*^9,
+ 3.664188510073626*^9, 3.664533530509679*^9, 3.6645355593450737`*^9,
+ 3.664537052014368*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T1", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "B112"}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "B112"}], "-",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "B012"}], " ", "+",
+ RowBox[{
+ RowBox[{"m0", "^", "2"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "C1"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"m0", "^", "2"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "C2"}]}]}]], "Input",
+ CellChangeTimes->{{3.664107927104292*^9, 3.664107927751668*^9}, {
+ 3.6641079653271427`*^9, 3.66410809595964*^9}, {3.66410813142388*^9,
+ 3.664108168246883*^9}, {3.6641102500862713`*^9, 3.6641102606555357`*^9}, {
+ 3.664110585541648*^9, 3.6641105912837267`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], "-",
+ RowBox[{"B112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"B112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C1", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.6641080648519297`*^9, 3.664108098216082*^9}, {
+ 3.664108140165588*^9, 3.664108169872266*^9}, 3.664109114901371*^9,
+ 3.664110263782243*^9, 3.664110403361532*^9, 3.664110524011075*^9,
+ 3.664110592918159*^9, 3.664111033444882*^9, 3.664175240602529*^9,
+ 3.664175309893105*^9, 3.664175820612069*^9, 3.664182859053734*^9,
+ 3.664183595097126*^9, 3.664185536057961*^9, 3.6641856961119223`*^9,
+ 3.664186207459086*^9, 3.664186285350808*^9, 3.664188519997937*^9,
+ 3.66453356941714*^9, 3.664535559513583*^9, 3.6645370526665363`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "B0002"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "B1102"}], " ", "-", " ",
+ "Bnurho12", " ", "-",
+ RowBox[{"f1", " ", "Cnurho"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.664109633256618*^9, 3.664109729911921*^9}, {
+ 3.664110483149416*^9, 3.66411048992557*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0002", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "-",
+ RowBox[{"B0012", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "-",
+ RowBox[{"B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"B1102", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"B1112", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "-",
+ RowBox[{"B112", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "-",
+ RowBox[{"f1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"C11", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"C22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664109730845702*^9, 3.664110404454644*^9,
+ 3.664110525560038*^9, 3.6641105937149477`*^9, 3.6641110351757927`*^9,
+ 3.6641752414955177`*^9, 3.6641753105461197`*^9, 3.664175821344185*^9,
+ 3.6641828599834423`*^9, 3.6641835960162573`*^9, 3.6641855362639847`*^9,
+ 3.664185696990697*^9, 3.6641862084488077`*^9, 3.664186285579919*^9,
+ 3.6641885207740307`*^9, 3.664533596502215*^9, 3.66453555968778*^9,
+ 3.66453705336023*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "B0001"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "B1101"}], " ", "-", " ",
+ "Bnurho12", " ", "-",
+ RowBox[{"f2", " ", "Cnurho"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.664109950952232*^9, 3.6641099873680964`*^9}, {
+ 3.664110493037127*^9, 3.6641105015961847`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B0001", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "-",
+ RowBox[{"B0012", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "-",
+ RowBox[{"B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"B1101", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"B1112", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "-",
+ RowBox[{"B112", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "-",
+ RowBox[{"f2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"C11", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"C22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664109988283432*^9, 3.664110405663908*^9,
+ 3.664110542746387*^9, 3.664110594291218*^9, 3.6641110392002573`*^9,
+ 3.664175242463797*^9, 3.664175311519199*^9, 3.664175822193284*^9,
+ 3.664182860957953*^9, 3.664183596781139*^9, 3.664185536444549*^9,
+ 3.664185697908224*^9, 3.664186209439599*^9, 3.6641862857831163`*^9,
+ 3.664188522406554*^9, 3.664533597671295*^9, 3.664535559896583*^9,
+ 3.66453705407835*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I11", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T1contract", " ", "-", "T1"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.66411006926779*^9, 3.664110076557527*^9}, {
+ 3.664110122221833*^9, 3.664110162278458*^9}, 3.664111197884993*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"6", " ", "B112"}]}], "+",
+ RowBox[{"36", " ", "C002"}], "+",
+ RowBox[{"6", " ", "C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"12", " ", "C122", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "C2", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"6", " ", "C222", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+", "1"}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664533679212412*^9, 3.664535560076468*^9,
+ 3.6645370547462807`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I12", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T1contract", " ", "-", "T1"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664110665813208*^9, 3.664110671667244*^9},
+ 3.664111200164976*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"B012", "+", "B112", "+",
+ RowBox[{"6", " ", "C001"}], "-",
+ RowBox[{"C1", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"C111", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C122", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+",
+ FractionBox["1", "6"]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6641106725302753`*^9, 3.664111044134305*^9,
+ 3.664111213424883*^9, 3.664175244089764*^9, 3.6641753131088142`*^9,
+ 3.6641758237468987`*^9, 3.6641828635162086`*^9, 3.6641836976022587`*^9,
+ 3.664185700669897*^9, 3.6641862109928217`*^9, 3.664186286139476*^9,
+ 3.664188525168398*^9, 3.664533683642284*^9, 3.664535560214924*^9,
+ 3.6645370554038267`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I21", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664110809574988*^9, 3.664110814501766*^9}, {
+ 3.664111097045874*^9, 3.664111125028544*^9}, {3.664111201806786*^9,
+ 3.664111203630424*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"B012", "+", "B1112", "+",
+ RowBox[{"2", " ", "B112"}], "+",
+ RowBox[{"4", " ", "C001"}], "+",
+ RowBox[{"C11", " ", "f1"}], "+",
+ RowBox[{"2", " ", "C111", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6641108159018297`*^9, 3.6641110464889402`*^9,
+ 3.664111126353503*^9, 3.664111214112526*^9, 3.664173931984214*^9,
+ 3.664175244885192*^9, 3.664175314036612*^9, 3.664175824569821*^9,
+ 3.664182864885106*^9, 3.664183698395773*^9, 3.664185702266755*^9,
+ 3.664186211728614*^9, 3.664186295377123*^9, 3.664188527333125*^9,
+ 3.664533694069316*^9, 3.664535560488611*^9, 3.664537056136127*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I22", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.66411114419058*^9, 3.66411116167598*^9}, {
+ 3.6641112055506783`*^9, 3.664111206502307*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "B1102"}], "+", "B1112", "+",
+ RowBox[{"2", " ", "C122", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"C22", " ", "f1"}], "+",
+ RowBox[{"2", " ", "C222", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6641111628335342`*^9, 3.6641112147421293`*^9,
+ 3.664173933294853*^9, 3.664175245642128*^9, 3.664175314692976*^9,
+ 3.664175825738759*^9, 3.664182870753426*^9, 3.66418369899016*^9,
+ 3.664185703362028*^9, 3.664186212453288*^9, 3.66418629640409*^9,
+ 3.664188530149218*^9, 3.66453369457836*^9, 3.664535560695488*^9,
+ 3.664537056821991*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I23", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664111231627915*^9, 3.664111240526044*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "B1112"}], "-", "B112", "+",
+ RowBox[{"2", " ", "C002"}], "+",
+ RowBox[{"2", " ", "C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"C12", " ", "f1"}], "+",
+ RowBox[{"2", " ", "C122", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.66411124137773*^9, 3.664173934247169*^9,
+ 3.664175246339172*^9, 3.664175315393971*^9, 3.6641758264897137`*^9,
+ 3.6641828716973267`*^9, 3.6641836997087603`*^9, 3.6641857042591133`*^9,
+ 3.664186213200828*^9, 3.664186297211691*^9, 3.664188530958474*^9,
+ 3.6645336951363077`*^9, 3.664535560837123*^9, 3.664537057487356*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I24", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.6641112430565243`*^9, 3.664111259213913*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "B1112"}], "-", "B112", "+",
+ RowBox[{"2", " ", "C002"}], "+",
+ RowBox[{"2", " ", "C112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"C12", " ", "f1"}], "+",
+ RowBox[{"2", " ", "C122", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664111259913246*^9, 3.664173935325633*^9,
+ 3.664175247004589*^9, 3.664175316073592*^9, 3.664175827294272*^9,
+ 3.664182873465447*^9, 3.664183700381192*^9, 3.664185705067398*^9,
+ 3.664186213893421*^9, 3.664186297876017*^9, 3.664188531710498*^9,
+ 3.664533695822701*^9, 3.66453556103155*^9, 3.66453705862272*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I25", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664111168316144*^9, 3.6641111752999783`*^9}, {
+ 3.6641112084706373`*^9, 3.664111222926449*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "B0002"}], "+", "B0012", "+",
+ RowBox[{"C00", " ", "f1"}], "+",
+ RowBox[{"2", " ", "C001", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C002", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.664111176265439*^9, {3.664111215399577*^9, 3.6641112235436487`*^9},
+ 3.664173936279126*^9, 3.6641752476315203`*^9, 3.664175316688685*^9,
+ 3.664175828044479*^9, 3.664182875537768*^9, 3.66418370137185*^9,
+ 3.664185705834032*^9, 3.664186214580039*^9, 3.6641862985143433`*^9,
+ 3.6641885324933968`*^9, 3.664533697128237*^9, 3.6645355611796837`*^9,
+ 3.664537059224475*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I31", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.6641677851269608`*^9, 3.664167789582849*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"B012", "-", "B1101", "+", "B1112", "+",
+ RowBox[{"2", " ", "B112"}], "+",
+ RowBox[{"C11", " ", "f2"}], "+",
+ RowBox[{"2", " ", "C111", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.66416779075278*^9, 3.664173937895926*^9,
+ 3.664175248237136*^9, 3.6641753173567543`*^9, 3.6641758288778477`*^9,
+ 3.664182877140308*^9, 3.6641837026380444`*^9, 3.6641857066222153`*^9,
+ 3.664186215301898*^9, 3.664186299224218*^9, 3.664188533402645*^9,
+ 3.664533698112461*^9, 3.664535561450274*^9, 3.664537059870615*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I32", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664167826278566*^9, 3.664167831254509*^9},
+ 3.6641753178428717`*^9, 3.66418630436941*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"B1112", "+",
+ RowBox[{"4", " ", "C002"}], "+",
+ RowBox[{"2", " ", "C122", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C22", " ", "f2"}], "+",
+ RowBox[{"2", " ", "C222", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6641678321435223`*^9, 3.664173938149932*^9, 3.6641752488469954`*^9,
+ 3.6641753201083813`*^9, 3.664175829505951*^9, 3.664182877824584*^9,
+ 3.664183703725219*^9, 3.6641857075317783`*^9, 3.66418621595509*^9, {
+ 3.6641862999008493`*^9, 3.664186305748749*^9}, 3.664188534606246*^9,
+ 3.66453369866643*^9, 3.664535561604206*^9, 3.664537060550647*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I33", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664167862750305*^9, 3.664167866654378*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "B1112"}], "-", "B112", "+",
+ RowBox[{"2", " ", "C001"}], "+",
+ RowBox[{"2", " ", "C112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C12", " ", "f2"}], "+",
+ RowBox[{"2", " ", "C122", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.664167867455665*^9, 3.664173939317651*^9, 3.664175249651713*^9,
+ 3.664175320929564*^9, 3.6641758302842216`*^9, 3.664182878609104*^9,
+ 3.664183704645664*^9, 3.664185708595791*^9, 3.664186216699605*^9, {
+ 3.664186301323903*^9, 3.664186308652935*^9}, 3.66418853556674*^9,
+ 3.664533699299786*^9, 3.664535561773403*^9, 3.6645370612385902`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I34", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.6641678740704403`*^9, 3.664167879782291*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "B1112"}], "-", "B112", "+",
+ RowBox[{"2", " ", "C001"}], "+",
+ RowBox[{"2", " ", "C112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C12", " ", "f2"}], "+",
+ RowBox[{"2", " ", "C122", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664167881410799*^9, 3.664173940348565*^9,
+ 3.664175321715988*^9, 3.6641758309805737`*^9, 3.664182879385098*^9,
+ 3.66418370550169*^9, 3.664185709819355*^9, 3.664186217362842*^9,
+ 3.6641863097318153`*^9, 3.664188537351265*^9, 3.664533699928669*^9,
+ 3.66453556192933*^9, 3.664537061918276*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I35", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664167887862123*^9, 3.6641678925261583`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "B0001"}], "+", "B0012", "+",
+ RowBox[{"C00", " ", "f2"}], "+",
+ RowBox[{"2", " ", "C001", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C002", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664167893630979*^9, 3.664173941624411*^9,
+ 3.664175322348282*^9, 3.664175831661125*^9, 3.66418288009051*^9,
+ 3.664183706278903*^9, 3.664185710696512*^9, 3.664186218003963*^9,
+ 3.664186312047052*^9, 3.664188538561305*^9, 3.664533700610672*^9,
+ 3.664535562077582*^9, 3.664537062576641*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I11", " ", "-", " ", "I23", " ", "-", " ", "I32"}], " ",
+ "\[Equal]", " ", "0"}], ",", " ", "C002"}], "]"}]], "Input",
+ CellChangeTimes->{{3.664175605229598*^9, 3.6641756298835917`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{"C002", "\[Rule]",
+ RowBox[{
+ FractionBox["1", "18"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f1"}], "+",
+ RowBox[{"6", " ", "C2", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C22", " ", "f2"}], "-", "1"}], ")"}]}]}], "}"}],
+ "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664175832937969*^9, 3.664182880871849*^9,
+ 3.6641837077511806`*^9, 3.664185712275679*^9, 3.664186219521263*^9,
+ 3.6641863132355747`*^9, 3.6641885399038*^9, 3.664533728250523*^9,
+ 3.6645370633456087`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6641758372233553`*^9, 3.664175843081852*^9}}],
+
+Cell["\<\
+{{C002 -> (-1 + 3*B112 + 3*C12*f1 + 3*C22*f2 + 6*C2*m0^2)/18}}\
+\>", "Output",
+ CellChangeTimes->{3.664175844092793*^9, 3.664182882028214*^9,
+ 3.664183709322858*^9, 3.664185714030739*^9, 3.664186227415856*^9,
+ 3.664186314374124*^9, 3.664188546393906*^9, 3.664533756790305*^9,
+ 3.66453706402923*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"C002", " ", "=", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "1"}], "+",
+ RowBox[{"3", "*", "B112"}], "+",
+ RowBox[{"3", "*", "C12", "*", "f1"}], "+",
+ RowBox[{"3", "*", "C22", "*", "f2"}], "+",
+ RowBox[{"6", "*", "C2", "*",
+ RowBox[{"m0", "^", "2"}]}]}], ")"}], "/", "18"}]}]], "Input",
+ CellChangeTimes->{{3.664175906415119*^9, 3.664175913074595*^9},
+ 3.664185726750647*^9, 3.664186324023016*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "18"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f1"}], "+",
+ RowBox[{"6", " ", "C2", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C22", " ", "f2"}], "-", "1"}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664175915698916*^9, 3.664182893917454*^9,
+ 3.664183712705111*^9, 3.664185728413916*^9, 3.664186229487031*^9,
+ 3.664186325432456*^9, 3.6641885592597523`*^9, 3.664533761847248*^9,
+ 3.664537064740573*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I12", " ", "-", " ", "I21", " ", "-", " ", "I33"}], " ",
+ "\[Equal]", " ", "0"}], ",", " ", "C001"}], "]"}]], "Input",
+ CellChangeTimes->{{3.664175869297846*^9, 3.664175880442083*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{"C001", "\[Rule]",
+ RowBox[{
+ FractionBox["1", "18"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"3", " ", "B012"}]}], "-",
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C11", " ", "f1"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f2"}], "-", "1"}], ")"}]}]}], "}"}],
+ "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664175881179825*^9, 3.664182896102068*^9,
+ 3.664182978665423*^9, 3.664183715663576*^9, 3.6641857380144653`*^9,
+ 3.6641863299245*^9, 3.664188560624589*^9, 3.664533763556253*^9,
+ 3.664537065465475*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input"],
+
+Cell["\<\
+{{C001 -> (-1 - 3*B012 - 3*B112 + 3*C11*f1 + 3*C12*f2 + 6*C1*m0^2)/18}}\
+\>", "Output",
+ CellChangeTimes->{3.664175894611444*^9, 3.664182938804914*^9,
+ 3.664182979540413*^9, 3.66418372144693*^9, 3.6641857463259773`*^9,
+ 3.664186337926819*^9, 3.664188568578094*^9, 3.664533764587927*^9,
+ 3.664537066108468*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"C001", " ", "=", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "1"}], "-",
+ RowBox[{"3", "*", "B012"}], "-",
+ RowBox[{"3", "*", "B112"}], "+",
+ RowBox[{"3", "*", "C11", "*", "f1"}], "+",
+ RowBox[{"3", "*", "C12", "*", "f2"}], "+",
+ RowBox[{"6", "*", "C1", "*",
+ RowBox[{"m0", "^", "2"}]}]}], ")"}], "/", "18"}]}]], "Input",
+ CellChangeTimes->{{3.664175920111268*^9, 3.664175925498804*^9}, {
+ 3.664182958796605*^9, 3.6641829760680103`*^9}, 3.664185758862372*^9,
+ 3.664186344199345*^9, 3.6641885772760143`*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "18"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"3", " ", "B012"}]}], "-",
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C11", " ", "f1"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f2"}], "-", "1"}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664182980995199*^9, 3.664183743225424*^9,
+ 3.664185760087914*^9, 3.664186345386779*^9, 3.664188579598147*^9,
+ 3.664533765592215*^9, 3.6645370667993*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I21", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"I31", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"C111", ",", " ", "C112"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.664170642488641*^9, 3.664170700505382*^9}, {
+ 3.664172418632451*^9, 3.664172435376292*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C111", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "9"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"3", " ", "B012"}]}], "-",
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C11", " ", "f1"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f2"}], "-", "1"}], ")"}]}], "+",
+ FractionBox["B012", "2"], "+",
+ FractionBox["B1112", "2"], "+", "B112", "+",
+ FractionBox[
+ RowBox[{"C11", " ", "f1"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["B012", "2"], "-",
+ FractionBox["B1101", "2"], "+",
+ FractionBox["B1112", "2"], "+", "B112", "+",
+ FractionBox[
+ RowBox[{"C11", " ", "f2"}], "2"]}], ")"}]}]}],
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]]}]}], ",",
+ RowBox[{"C112", "\[Rule]",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"3", " ", "B012", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], "+",
+ RowBox[{"9", " ", "B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "B1101", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"18", " ", "B112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "C1", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"15", " ", "C11", " ", "f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "C11", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C12", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}],
+ RowBox[{"18", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}]}]]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664170701514681*^9, 3.6641724373913507`*^9,
+ 3.6641739540954742`*^9, 3.6641753240568027`*^9, 3.664175930592918*^9,
+ 3.664176144972938*^9, 3.6641829843073463`*^9, 3.664183758614943*^9,
+ 3.664185785454535*^9, 3.6641863691234827`*^9, 3.664188611108347*^9,
+ 3.664189132625567*^9, 3.6645337733415337`*^9, 3.664537068005867*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.66417614673053*^9, 3.664176152423686*^9}}],
+
+Cell["\<\
+{{C111 -> -((-((B012/2 - B1101/2 + B1112/2 + B112 + \
+(C11*f2)/2)*Pair[Momentum[p1], Momentum[p2]]) +
+ (B012/2 + B1112/2 + B112 + (C11*f1)/2 + (-1 - 3*B012 - 3*B112 + \
+3*C11*f1 + 3*C12*f2 + 6*C1*m0^2)/9)*Pair[Momentum[p2], Momentum[p2]])/
+ (-Pair[Momentum[p1], Momentum[p2]]^2 + Pair[Momentum[p1], \
+Momentum[p1]]*Pair[Momentum[p2], Momentum[p2]])),
+ C112 -> (9*B012*Pair[Momentum[p1], Momentum[p1]] - \
+9*B1101*Pair[Momentum[p1], Momentum[p1]] + 9*B1112*Pair[Momentum[p1], \
+Momentum[p1]] +
+ 18*B112*Pair[Momentum[p1], Momentum[p1]] + 9*C11*f2*Pair[Momentum[p1], \
+Momentum[p1]] + 2*Pair[Momentum[p1], Momentum[p2]] -
+ 3*B012*Pair[Momentum[p1], Momentum[p2]] - 9*B1112*Pair[Momentum[p1], \
+Momentum[p2]] - 12*B112*Pair[Momentum[p1], Momentum[p2]] -
+ 15*C11*f1*Pair[Momentum[p1], Momentum[p2]] - 6*C12*f2*Pair[Momentum[p1], \
+Momentum[p2]] - 12*C1*m0^2*Pair[Momentum[p1], Momentum[p2]])/
+ (18*(Pair[Momentum[p1], Momentum[p2]]^2 - Pair[Momentum[p1], \
+Momentum[p1]]*Pair[Momentum[p2], Momentum[p2]]))}}\
+\>", "Output",
+ CellChangeTimes->{3.664176153104156*^9, 3.6641829859062*^9,
+ 3.664183762569265*^9, 3.664185789952681*^9, 3.664186374168672*^9,
+ 3.664188616751294*^9, 3.664189135737342*^9, 3.664533778823414*^9,
+ 3.664537069198167*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W1", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B012", "/", "2"}], "-",
+ RowBox[{"B1101", "/", "2"}], "+",
+ RowBox[{"B1112", "/", "2"}], "+", "B112", "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"C11", "*", "f2"}], ")"}], "/", "2"}]}], ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B012", "/", "2"}], "+",
+ RowBox[{"B1112", "/", "2"}], "+", "B112", "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"C11", "*", "f1"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "1"}], "-",
+ RowBox[{"3", "*", "B012"}], "-",
+ RowBox[{"3", "*", "B112"}], "+",
+ RowBox[{"3", "*", "C11", "*", "f1"}], "+",
+ RowBox[{"3", "*", "C12", "*", "f2"}], "+",
+ RowBox[{"6", "*", "C1", "*",
+ RowBox[{"m0", "^", "2"}]}]}], ")"}], "/", "9"}]}], ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}]}], ")"}],
+ ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.66417615499576*^9, 3.6641761690162697`*^9}, {
+ 3.664183800440501*^9, 3.6641838134966097`*^9}, {3.6641859554050694`*^9,
+ 3.664185957211832*^9}, {3.664186390472014*^9, 3.664186392504587*^9}, {
+ 3.664188632439467*^9, 3.6641886340533733`*^9}, {3.664607069853651*^9,
+ 3.664607070370417*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["B012", "2"], "-",
+ FractionBox["B1101", "2"], "+",
+ FractionBox["B1112", "2"], "+", "B112", "+",
+ FractionBox[
+ RowBox[{"C11", " ", "f2"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "9"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"3", " ", "B012"}]}], "-",
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C11", " ", "f1"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f2"}], "-", "1"}], ")"}]}], "+",
+ FractionBox["B012", "2"], "+",
+ FractionBox["B1112", "2"], "+", "B112", "+",
+ FractionBox[
+ RowBox[{"C11", " ", "f1"}], "2"]}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664183814428914*^9, 3.664185958853169*^9,
+ 3.6641863940990353`*^9, 3.664188635030239*^9, 3.6641891393513308`*^9,
+ 3.664533780216976*^9, 3.664537070312701*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W2", " ", "=", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"9", "*", "B012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "-",
+ RowBox[{"9", "*", "B1101", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "+",
+ RowBox[{"9", "*", "B1112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "+",
+ RowBox[{"18", "*", "B112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "+",
+ RowBox[{"9", "*", "C11", "*", "f2", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "+",
+ RowBox[{"2", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "B012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"9", "*", "B1112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"12", "*", "B112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"15", "*", "C11", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"6", "*", "C12", "*", "f2", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"12", "*", "C1", "*",
+ RowBox[{"m0", "^", "2"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.664176177835361*^9, 3.664176183830832*^9},
+ 3.664183844248454*^9, {3.6641859742703*^9, 3.6641859816081743`*^9},
+ 3.664186418800643*^9, 3.664188652485237*^9, {3.6646070731778316`*^9,
+ 3.664607073531399*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"3", " ", "B012", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], "+",
+ RowBox[{"9", " ", "B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "B1101", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"18", " ", "B112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "C1", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"15", " ", "C11", " ", "f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "C11", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C12", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664176185315662*^9, 3.664183846178583*^9,
+ 3.664185982999353*^9, 3.664186420244092*^9, 3.6641886537752533`*^9,
+ 3.664189152398258*^9, 3.664533781113172*^9, 3.664537076617806*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I22", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"I32", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"C222", ",", " ", "C122"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.664172475888508*^9, 3.664172483568404*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C222", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["B1112", "2"], "+",
+ RowBox[{
+ FractionBox["1", "9"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f1"}], "+",
+ RowBox[{"6", " ", "C2", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C22", " ", "f2"}], "-", "1"}], ")"}]}], "+",
+ FractionBox[
+ RowBox[{"C22", " ", "f2"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["B1102", "2"]}], "+",
+ FractionBox["B1112", "2"], "+",
+ FractionBox[
+ RowBox[{"C22", " ", "f1"}], "2"]}], ")"}]}]}],
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]]}]}], ",",
+ RowBox[{"C122", "\[Rule]",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"9", " ", "B1102", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "C12", " ", "f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"12", " ", "C2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "C22", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "C22", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}],
+ RowBox[{"18", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}]}]]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664172484383416*^9, 3.664173961628065*^9,
+ 3.664175327830127*^9, 3.6641759422825212`*^9, 3.664176197781239*^9,
+ 3.6641838674654293`*^9, 3.6641860053720818`*^9, 3.66418642528894*^9,
+ 3.664188662600772*^9, 3.664189155452401*^9, 3.6645337842465487`*^9,
+ 3.664537077508684*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.664176200548154*^9, 3.664176222335095*^9}}],
+
+Cell["\<\
+{{C222 -> -(((B1112/2 + (C22*f2)/2 + (-1 + 3*B112 + 3*C12*f1 + 3*C22*f2 + \
+6*C2*m0^2)/9)*Pair[Momentum[p1], Momentum[p1]] -
+ (-B1102/2 + B1112/2 + (C22*f1)/2)*Pair[Momentum[p1], \
+Momentum[p2]])/(-Pair[Momentum[p1], Momentum[p2]]^2 +
+ Pair[Momentum[p1], Momentum[p1]]*Pair[Momentum[p2], Momentum[p2]])),
+ C122 -> (2*Pair[Momentum[p1], Momentum[p2]] - 9*B1112*Pair[Momentum[p1], \
+Momentum[p2]] - 6*B112*Pair[Momentum[p1], Momentum[p2]] -
+ 6*C12*f1*Pair[Momentum[p1], Momentum[p2]] - 15*C22*f2*Pair[Momentum[p1], \
+Momentum[p2]] - 12*C2*m0^2*Pair[Momentum[p1], Momentum[p2]] -
+ 9*B1102*Pair[Momentum[p2], Momentum[p2]] + 9*B1112*Pair[Momentum[p2], \
+Momentum[p2]] + 9*C22*f1*Pair[Momentum[p2], Momentum[p2]])/
+ (18*(Pair[Momentum[p1], Momentum[p2]]^2 - Pair[Momentum[p1], \
+Momentum[p1]]*Pair[Momentum[p2], Momentum[p2]]))}}\
+\>", "Output",
+ CellChangeTimes->{3.66417622403121*^9, 3.664183881669066*^9,
+ 3.6641860077019873`*^9, 3.664186479244768*^9, 3.66418866588581*^9,
+ 3.6641891569252863`*^9, 3.6645337852112303`*^9, 3.664537079542059*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W3", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"B1112", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"C22", "*", "f2"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "1"}], "+",
+ RowBox[{"3", "*", "B112"}], "+",
+ RowBox[{"3", "*", "C12", "*", "f1"}], "+",
+ RowBox[{"3", "*", "C22", "*", "f2"}], "+",
+ RowBox[{"6", "*", "C2", "*",
+ RowBox[{"m0", "^", "2"}]}]}], ")"}], "/", "9"}]}], ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "B1102"}], "/", "2"}], "+",
+ RowBox[{"B1112", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"C22", "*", "f1"}], ")"}], "/", "2"}]}], ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}]}], ")"}],
+ ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.664176231691978*^9, 3.664176244893834*^9}, {
+ 3.66418389086972*^9, 3.664183892735092*^9}, {3.6641860188146553`*^9,
+ 3.6641860317736397`*^9}, {3.664186488349989*^9, 3.6641864899156733`*^9}, {
+ 3.664188677198461*^9, 3.664188678953219*^9}, {3.664607077957432*^9,
+ 3.664607078381853*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["B1102", "2"]}], "+",
+ FractionBox["B1112", "2"], "+",
+ FractionBox[
+ RowBox[{"C22", " ", "f1"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["B1112", "2"], "+",
+ RowBox[{
+ FractionBox["1", "9"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f1"}], "+",
+ RowBox[{"6", " ", "C2", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C22", " ", "f2"}], "-", "1"}], ")"}]}], "+",
+ FractionBox[
+ RowBox[{"C22", " ", "f2"}], "2"]}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664176246325025*^9, 3.664183894673975*^9,
+ 3.6641860360429792`*^9, 3.664186490919073*^9, 3.664188679738481*^9,
+ 3.664189158455185*^9, 3.664533786387513*^9, 3.66453708077486*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W4", " ", "=", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"9", "*", "B1112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"6", "*", "B112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"6", "*", "C12", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"15", "*", "C22", "*", "f2", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"12", "*", "C2", "*",
+ RowBox[{"m0", "^", "2"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"9", "*", "B1102", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "+",
+ RowBox[{"9", "*", "B1112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "+",
+ RowBox[{"9", "*", "C22", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.664176247840218*^9, 3.6641762568093767`*^9}, {
+ 3.664183913373784*^9, 3.664183933554121*^9}, 3.664186063797881*^9,
+ 3.664186509960575*^9, 3.6641886998988953`*^9, {3.664607080383506*^9,
+ 3.6646070807533913`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"9", " ", "B1102", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "C12", " ", "f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"12", " ", "C2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "C22", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "C22", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.664176258130169*^9, {3.664183920727044*^9, 3.664183935047429*^9},
+ 3.664186065237966*^9, 3.6641865117004128`*^9, 3.6641887013119287`*^9,
+ 3.664189159885861*^9, 3.6645337873292522`*^9, 3.6645370269390793`*^9,
+ 3.664537081738077*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I23", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"I33", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"C112", ",", " ", "C122"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.664172506168334*^9, 3.664172513216303*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C112", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "18"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"3", " ", "B012"}]}], "-",
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C11", " ", "f1"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f2"}], "-", "1"}], ")"}]}], "-",
+ FractionBox["B1112", "2"], "-",
+ FractionBox["B112", "2"], "+",
+ FractionBox[
+ RowBox[{"C12", " ", "f2"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["B1112", "2"]}], "+",
+ RowBox[{
+ FractionBox["1", "18"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f1"}], "+",
+ RowBox[{"6", " ", "C2", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C22", " ", "f2"}], "-", "1"}], ")"}]}], "-",
+ FractionBox["B112", "2"], "+",
+ FractionBox[
+ RowBox[{"C12", " ", "f1"}], "2"]}], ")"}]}]}],
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}]]}]}], ",",
+ RowBox[{"C122", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"3", " ", "B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"12", " ", "B112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C11", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"12", " ", "C12", " ", "f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"12", " ", "C12", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C22", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], "+",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}],
+ RowBox[{"18", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}]}]]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664172518303258*^9, 3.6641739647679243`*^9,
+ 3.664175328811281*^9, 3.664175943606558*^9, 3.664176296450029*^9,
+ 3.6641839793524523`*^9, 3.66418607651548*^9, 3.664186516469783*^9,
+ 3.664188703774095*^9, 3.664189057001101*^9, 3.664189165917447*^9,
+ 3.6645337888577137`*^9, 3.664537029575375*^9, 3.664537083098687*^9,
+ 3.664538576700222*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6641763028869047`*^9, 3.664176326222467*^9}}],
+
+Cell["\<\
+{{C112 -> -(((-B1112/2 - B112/2 + (C12*f2)/2 + (-1 - 3*B012 - 3*B112 + \
+3*C11*f1 + 3*C12*f2 + 6*C1*m0^2)/18)*Pair[Momentum[p1], Momentum[p2]] -
+ (-B1112/2 - B112/2 + (C12*f1)/2 + (-1 + 3*B112 + 3*C12*f1 + 3*C22*f2 + \
+6*C2*m0^2)/18)*Pair[Momentum[p2], Momentum[p2]])/
+ (Pair[Momentum[p1], Momentum[p2]]^2 - Pair[Momentum[p1], \
+Momentum[p1]]*Pair[Momentum[p2], Momentum[p2]])),
+ C122 -> -(Pair[Momentum[p1], Momentum[p1]] + 3*B012*Pair[Momentum[p1], \
+Momentum[p1]] + 9*B1112*Pair[Momentum[p1], Momentum[p1]] +
+ 12*B112*Pair[Momentum[p1], Momentum[p1]] - 3*C11*f1*Pair[Momentum[p1], \
+Momentum[p1]] - 12*C12*f2*Pair[Momentum[p1], Momentum[p1]] -
+ 6*C1*m0^2*Pair[Momentum[p1], Momentum[p1]] - Pair[Momentum[p1], \
+Momentum[p2]] - 9*B1112*Pair[Momentum[p1], Momentum[p2]] -
+ 6*B112*Pair[Momentum[p1], Momentum[p2]] + 12*C12*f1*Pair[Momentum[p1], \
+Momentum[p2]] + 3*C22*f2*Pair[Momentum[p1], Momentum[p2]] +
+ 6*C2*m0^2*Pair[Momentum[p1], Momentum[p2]])/(18*(Pair[Momentum[p1], \
+Momentum[p2]]^2 - Pair[Momentum[p1], Momentum[p1]]*Pair[Momentum[p2], \
+Momentum[p2]]))}}\
+\>", "Output",
+ CellChangeTimes->{3.664176327047093*^9, 3.6641839829028683`*^9,
+ 3.664186084476667*^9, 3.664186577056488*^9, 3.664189057994051*^9,
+ 3.664189167829962*^9, 3.664533789832192*^9, 3.664537031450466*^9,
+ 3.664537084286366*^9, 3.664538577810837*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W5", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "B1112"}], "/", "2"}], "-",
+ RowBox[{"B112", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"C12", "*", "f2"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "1"}], "-",
+ RowBox[{"3", "*", "B012"}], "-",
+ RowBox[{"3", "*", "B112"}], "+",
+ RowBox[{"3", "*", "C11", "*", "f1"}], "+",
+ RowBox[{"3", "*", "C12", "*", "f2"}], "+",
+ RowBox[{"6", "*", "C1", "*",
+ RowBox[{"m0", "^", "2"}]}]}], ")"}], "/", "18"}]}], ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "B1112"}], "/", "2"}], "-",
+ RowBox[{"B112", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"C12", "*", "f1"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "1"}], "+",
+ RowBox[{"3", "*", "B112"}], "+",
+ RowBox[{"3", "*", "C12", "*", "f1"}], "+",
+ RowBox[{"3", "*", "C22", "*", "f2"}], "+",
+ RowBox[{"6", "*", "C2", "*",
+ RowBox[{"m0", "^", "2"}]}]}], ")"}], "/", "18"}]}], ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}]}], ")"}],
+ ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.6641763480381737`*^9, 3.6641763649990463`*^9}, {
+ 3.664183997905738*^9, 3.664184001759392*^9}, {3.664186584813128*^9,
+ 3.6641865955089273`*^9}, {3.664188723327198*^9, 3.664188725210767*^9}, {
+ 3.664538603972198*^9, 3.664538610271731*^9}, {3.664607084511198*^9,
+ 3.664607084864725*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["B1112", "2"]}], "+",
+ RowBox[{
+ FractionBox["1", "18"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f1"}], "+",
+ RowBox[{"6", " ", "C2", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C22", " ", "f2"}], "-", "1"}], ")"}]}], "-",
+ FractionBox["B112", "2"], "+",
+ FractionBox[
+ RowBox[{"C12", " ", "f1"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "18"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"3", " ", "B012"}]}], "-",
+ RowBox[{"3", " ", "B112"}], "+",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"3", " ", "C11", " ", "f1"}], "+",
+ RowBox[{"3", " ", "C12", " ", "f2"}], "-", "1"}], ")"}]}], "-",
+ FractionBox["B1112", "2"], "-",
+ FractionBox["B112", "2"], "+",
+ FractionBox[
+ RowBox[{"C12", " ", "f2"}], "2"]}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664538611306582*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W6", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}], "+",
+ RowBox[{"3", "*", "B012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "+",
+ RowBox[{"9", "*", "B1112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "+",
+ RowBox[{"12", "*", "B112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "C11", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "-",
+ RowBox[{"12", "*", "C12", "*", "f2", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "-",
+ RowBox[{"6", "*", "C1", "*",
+ RowBox[{"m0", "^", "2"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}]}], "-",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}], "-",
+ RowBox[{"9", "*", "B1112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "-",
+ RowBox[{"6", "*", "B112", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "+",
+ RowBox[{"12", "*", "C12", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "+",
+ RowBox[{"3", "*", "C22", "*", "f2", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}], "+",
+ RowBox[{"6", "*", "C2", "*",
+ RowBox[{"m0", "^", "2"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}]}]}], ")"}]}]}]], "Input",\
+
+ CellChangeTimes->{{3.6641763719312353`*^9, 3.664176379425169*^9}, {
+ 3.664184017103903*^9, 3.664184022787109*^9}, 3.664186612968321*^9,
+ 3.6641887532785053`*^9, 3.664188897598763*^9, 3.6641891009170313`*^9, {
+ 3.664607087315535*^9, 3.664607087620466*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"3", " ", "B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"12", " ", "B112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C11", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "C12", " ", "f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"12", " ", "C12", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C22", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], "-",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.664176380340534*^9, {3.664184018623074*^9, 3.664184024346777*^9},
+ 3.6641866144696827`*^9, 3.664188754454411*^9, 3.6641888994956093`*^9,
+ 3.664189066673235*^9, 3.664189102200931*^9, 3.664189176658925*^9,
+ 3.664533791961482*^9, 3.6645370336091137`*^9, 3.664537086389661*^9,
+ 3.664539053726597*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"W1", " ", "\[Equal]", " ", "0"}], "&&", " ",
+ RowBox[{"W3", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"W5", " ", "\[Equal]", " ", "0"}]}], ",", " ",
+ RowBox[{"{",
+ RowBox[{"C11", ",", "C12", ",", "C22"}], "}"}]}], " ", "]"}]], "Input",
+ CellChangeTimes->{{3.6641764184457417`*^9, 3.664176449006763*^9}, {
+ 3.664607091110281*^9, 3.664607095733444*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C11", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["2", "3"]}], " ", "C1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ FractionBox[
+ RowBox[{"B012", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "2"], "-",
+ FractionBox[
+ RowBox[{"B1101", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "2"], "+",
+ FractionBox[
+ RowBox[{"B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "2"], "+",
+ RowBox[{"B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ FractionBox[
+ RowBox[{"B012", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "6"], "-",
+ FractionBox[
+ RowBox[{"B1112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "2"], "-",
+ FractionBox[
+ RowBox[{"2", " ", "B112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "3"], "+",
+ FractionBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], "9"]}], ")"}]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "18"]}], " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "2"], "-",
+ FractionBox[
+ RowBox[{"5", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "6"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"2", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "3"], "-",
+ FractionBox[
+ RowBox[{"2", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "3"]}], ")"}]}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "3"], " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "6"], " ", "f2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["2", "3"]}], " ", "C2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ FractionBox[
+ RowBox[{"B1112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "2"], "-",
+ FractionBox[
+ RowBox[{"B112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "3"], "+",
+ FractionBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], "9"], "-",
+ FractionBox[
+ RowBox[{"B1102", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "2"], "+",
+ FractionBox[
+ RowBox[{"B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "2"]}], ")"}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "2"], "-",
+ FractionBox[
+ RowBox[{"5", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "6"]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["1", "3"]}], " ", "C1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{
+ FractionBox["1", "3"], " ", "C2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ FractionBox[
+ RowBox[{"B012", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "6"], "+",
+ FractionBox[
+ RowBox[{"B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "2"], "+",
+ FractionBox[
+ RowBox[{"2", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "3"], "+",
+ FractionBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], "18"], "-",
+ FractionBox[
+ RowBox[{"B1112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "2"], "-",
+ FractionBox[
+ RowBox[{"B112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "3"], "-",
+ FractionBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], "18"]}], ")"}]}]}], ")"}]}]}],
+ ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["5", "18"]}], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "3"]}], "+",
+ RowBox[{
+ FractionBox["5", "12"], " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "+",
+ RowBox[{
+ FractionBox["5", "12"], " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "-",
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"], " ", "f1"}], "-",
+ RowBox[{
+ FractionBox["2", "3"], " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ", "f1"}], "+",
+ RowBox[{
+ FractionBox["5", "18"], " ",
+ SuperscriptBox["f2", "3"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]}], ")"}]}], ")"}]}]}], ",",
+ RowBox[{"C12", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"9", " ", "B012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"9", " ", "B1101", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"18", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"18", " ", "C1", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"9", " ", "B012", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"27", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"36", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"3", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"15", " ", "B012", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"45", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"60", " ", "B112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "C1", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "B012", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"15", " ", "B1101", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"30", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"18", " ", "B012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"54", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"72", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "B1102", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"18", " ", "C1", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"18", " ", "C2", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"27", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"18", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"45", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"30", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"5", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"30", " ", "C2", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"15", " ", "B1102", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"15", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"54", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"36", " ", "B112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"18", " ", "C2", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"30", " ", "C1", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"30", " ", "B012", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"90", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"120", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"5", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"30", " ", "C2", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"90", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"60", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"6", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "10"}], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "3"]}], "+",
+ RowBox[{"15", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "+",
+ RowBox[{"15", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "-",
+ RowBox[{"6", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"], " ", "f1"}], "-",
+ RowBox[{"24", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ", "f1"}], "+",
+ RowBox[{"10", " ",
+ SuperscriptBox["f2", "3"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]}], ")"}]}], ")"}]}], ")"}]}]}], ",",
+
+ RowBox[{"C22", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"18", " ", "B1102", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"18", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"3", " ", "B012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "B1101", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"18", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"12", " ", "B112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"24", " ", "C2", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C1", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "B012", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"12", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"45", " ", "B1102", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"45", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "B1102", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"30", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "B012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"18", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"24", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"54", " ", "C2", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"54", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"36", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"45", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "C2", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "10"}], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "3"]}], "+",
+ RowBox[{"15", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "+",
+ RowBox[{"15", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "-",
+ RowBox[{"6", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"], " ", "f1"}], "-",
+ RowBox[{"24", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ", "f1"}], "+",
+ RowBox[{"10", " ",
+ SuperscriptBox["f2", "3"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]}], ")"}]}], ")"}]}], ")"}]}]}]}],
+ "}"}], "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.664176449863106*^9, 3.664176533833596*^9, {3.6641765972034197`*^9,
+ 3.66417661402742*^9}, 3.664179309680126*^9, 3.66417951029148*^9,
+ 3.664184043718573*^9, 3.664186619904248*^9, 3.664189179098854*^9,
+ 3.664533793184771*^9, 3.664537087428625*^9, 3.6645390610550947`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"InputForm", "[", "%", "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p1p2pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p1p1pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p2p2pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"m0", "^", "2"}], "\[Rule]", " ", "m0m0"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.6641765381850023`*^9, 3.664176635822297*^9}, {
+ 3.664179097117569*^9, 3.6641791037414293`*^9}, {3.664179303956297*^9,
+ 3.664179304483644*^9}, {3.664179494963323*^9, 3.664179503754898*^9}}],
+
+Cell["\<\
+{{C11 -> -((-(((B012*p1p2pat)/2 - (B1101*p1p2pat)/2 + (B1112*p1p2pat)/2 + \
+B112*p1p2pat + p2p2pat/9 - (B012*p2p2pat)/6 - (B1112*p2p2pat)/2 - \
+(2*B112*p2p2pat)/3 -
+ (2*C1*m0m0*p2p2pat)/3)*(-(f1*f2*p1p1pat*p2p2pat)/18 - \
+((-5*f2*p1p1pat)/6 + (f1*p1p2pat)/2)*((-2*f2*p1p2pat)/3 + (2*f1*p2p2pat)/3))) \
+-
+ (f2*p2p2pat*((f2*(p1p1pat/9 - (B1112*p1p1pat)/2 - (B112*p1p1pat)/3 - \
+(2*C2*m0m0*p1p1pat)/3 - (B1102*p1p2pat)/2 + (B1112*p1p2pat)/2)*p2p2pat)/6 -
+ ((-5*f2*p1p1pat)/6 + (f1*p1p2pat)/2)*(p1p2pat/18 + (B012*p1p2pat)/6 \
++ (B1112*p1p2pat)/2 + (2*B112*p1p2pat)/3 - (C1*m0m0*p1p2pat)/3 - p2p2pat/18 - \
+
+ (B1112*p2p2pat)/2 - (B112*p2p2pat)/3 + \
+(C2*m0m0*p2p2pat)/3)))/3)/((5*f2^3*p1p1pat*p1p2pat^2)/18 - \
+(f1*f2^2*p1p2pat^3)/6 -
+ (2*f1*f2^2*p1p1pat*p1p2pat*p2p2pat)/3 + \
+(5*f1^2*f2*p1p2pat^2*p2p2pat)/12 + (5*f1^2*f2*p1p1pat*p2p2pat^2)/12 - \
+(5*f1^3*p1p2pat*p2p2pat^2)/18)),
+ C12 -> -(-15*B012*f1*f2*p1p1pat*p1p2pat^2 + \
+15*B1101*f1*f2*p1p1pat*p1p2pat^2 - 15*B1112*f1*f2*p1p1pat*p1p2pat^2 - \
+30*B112*f1*f2*p1p1pat*p1p2pat^2 -
+ 5*f2^2*p1p1pat*p1p2pat^2 - 15*B012*f2^2*p1p1pat*p1p2pat^2 - \
+45*B1112*f2^2*p1p1pat*p1p2pat^2 - 60*B112*f2^2*p1p1pat*p1p2pat^2 + \
+30*C1*f2^2*m0m0*p1p1pat*p1p2pat^2 +
+ 9*B012*f1^2*p1p2pat^3 - 9*B1101*f1^2*p1p2pat^3 + 9*B1112*f1^2*p1p2pat^3 \
++ 18*B112*f1^2*p1p2pat^3 + 3*f1*f2*p1p2pat^3 + 9*B012*f1*f2*p1p2pat^3 +
+ 27*B1112*f1*f2*p1p2pat^3 + 36*B112*f1*f2*p1p2pat^3 - \
+18*C1*f1*f2*m0m0*p1p2pat^3 + 5*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+30*B012*f1*f2*p1p1pat*p1p2pat*p2p2pat +
+ 90*B1112*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+120*B112*f1*f2*p1p1pat*p1p2pat*p2p2pat + 3*f2^2*p1p1pat*p1p2pat*p2p2pat + \
+54*B1112*f2^2*p1p1pat*p1p2pat*p2p2pat +
+ 36*B112*f2^2*p1p1pat*p1p2pat*p2p2pat - \
+30*C1*f1*f2*m0m0*p1p1pat*p1p2pat*p2p2pat - \
+18*C2*f2^2*m0m0*p1p1pat*p1p2pat*p2p2pat - 3*f1^2*p1p2pat^2*p2p2pat -
+ 18*B012*f1^2*p1p2pat^2*p2p2pat - 54*B1112*f1^2*p1p2pat^2*p2p2pat - \
+72*B112*f1^2*p1p2pat^2*p2p2pat - 3*f1*f2*p1p2pat^2*p2p2pat - \
+27*B1112*f1*f2*p1p2pat^2*p2p2pat -
+ 18*B112*f1*f2*p1p2pat^2*p2p2pat + 9*B1102*f2^2*p1p2pat^2*p2p2pat - \
+9*B1112*f2^2*p1p2pat^2*p2p2pat + 18*C1*f1^2*m0m0*p1p2pat^2*p2p2pat +
+ 18*C2*f1*f2*m0m0*p1p2pat^2*p2p2pat - 5*f1*f2*p1p1pat*p2p2pat^2 - \
+90*B1112*f1*f2*p1p1pat*p2p2pat^2 - 60*B112*f1*f2*p1p1pat*p2p2pat^2 +
+ 30*C2*f1*f2*m0m0*p1p1pat*p2p2pat^2 + 5*f1^2*p1p2pat*p2p2pat^2 + \
+45*B1112*f1^2*p1p2pat*p2p2pat^2 + 30*B112*f1^2*p1p2pat*p2p2pat^2 -
+ 15*B1102*f1*f2*p1p2pat*p2p2pat^2 + 15*B1112*f1*f2*p1p2pat*p2p2pat^2 - \
+30*C2*f1^2*m0m0*p1p2pat*p2p2pat^2)/
+ (6*(10*f2^3*p1p1pat*p1p2pat^2 - 6*f1*f2^2*p1p2pat^3 - \
+24*f1*f2^2*p1p1pat*p1p2pat*p2p2pat + 15*f1^2*f2*p1p2pat^2*p2p2pat + \
+15*f1^2*f2*p1p1pat*p2p2pat^2 -
+ 10*f1^3*p1p2pat*p2p2pat^2)), C22 -> -(3*B012*f1^2*p1p1pat*p1p2pat^2 - \
+3*B1101*f1^2*p1p1pat*p1p2pat^2 + 3*B1112*f1^2*p1p1pat*p1p2pat^2 +
+ 6*B112*f1^2*p1p1pat*p1p2pat^2 + f1*f2*p1p1pat*p1p2pat^2 + \
+3*B012*f1*f2*p1p1pat*p1p2pat^2 + 9*B1112*f1*f2*p1p1pat*p1p2pat^2 + \
+12*B112*f1*f2*p1p1pat*p1p2pat^2 -
+ 4*f2^2*p1p1pat*p1p2pat^2 + 18*B1112*f2^2*p1p1pat*p1p2pat^2 + \
+12*B112*f2^2*p1p1pat*p1p2pat^2 - 6*C1*f1*f2*m0m0*p1p1pat*p1p2pat^2 +
+ 24*C2*f2^2*m0m0*p1p1pat*p1p2pat^2 + 18*B1102*f2^2*p1p2pat^3 - \
+18*B1112*f2^2*p1p2pat^3 - f1^2*p1p1pat*p1p2pat*p2p2pat - \
+6*B012*f1^2*p1p1pat*p1p2pat*p2p2pat -
+ 18*B1112*f1^2*p1p1pat*p1p2pat*p2p2pat - \
+24*B112*f1^2*p1p1pat*p1p2pat*p2p2pat + 9*f1*f2*p1p1pat*p1p2pat*p2p2pat - \
+54*B1112*f1*f2*p1p1pat*p1p2pat*p2p2pat -
+ 36*B112*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+6*C1*f1^2*m0m0*p1p1pat*p1p2pat*p2p2pat - \
+54*C2*f1*f2*m0m0*p1p1pat*p1p2pat*p2p2pat - 45*B1102*f1*f2*p1p2pat^2*p2p2pat + \
+
+ 45*B1112*f1*f2*p1p2pat^2*p2p2pat - 5*f1^2*p1p1pat*p2p2pat^2 + \
+45*B1112*f1^2*p1p1pat*p2p2pat^2 + 30*B112*f1^2*p1p1pat*p2p2pat^2 +
+ 30*C2*f1^2*m0m0*p1p1pat*p2p2pat^2 + 30*B1102*f1^2*p1p2pat*p2p2pat^2 - \
+30*B1112*f1^2*p1p2pat*p2p2pat^2)/
+ (3*(10*f2^3*p1p1pat*p1p2pat^2 - 6*f1*f2^2*p1p2pat^3 - \
+24*f1*f2^2*p1p1pat*p1p2pat*p2p2pat + 15*f1^2*f2*p1p2pat^2*p2p2pat + \
+15*f1^2*f2*p1p1pat*p2p2pat^2 -
+ 10*f1^3*p1p2pat*p2p2pat^2))}}\
+\>", "Output",
+ CellChangeTimes->{3.664176614784957*^9, 3.6641793106953297`*^9,
+ 3.664179512070801*^9, 3.664184059246215*^9, 3.6641866298670807`*^9,
+ 3.6641891885646152`*^9, 3.6645337969143467`*^9, 3.664537088614108*^9,
+ 3.664539065342731*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.664179514923069*^9, 3.664179519513735*^9}}],
+
+Cell["\<\
+ List(List(Rule(C11,-((-(((B012*p1p2pat)/2. - (B1101*p1p2pat)/2. + \
+(B1112*p1p2pat)/2. + B112*p1p2pat + p2p2pat/9. - (B012*p2p2pat)/6. - \
+(B1112*p2p2pat)/2. -
+ - (2*B112*p2p2pat)/3. - \
+(2*C1*m0m0*p2p2pat)/3.)*(-(f1*f2*p1p1pat*p2p2pat)/18. -
+ - ((-5*f2*p1p1pat)/6. + \
+(f1*p1p2pat)/2.)*((-2*f2*p1p2pat)/3. + (2*f1*p2p2pat)/3.))) -
+ - (f2*p2p2pat*((f2*(p1p1pat/9. - (B1112*p1p1pat)/2. - \
+(B112*p1p1pat)/3. - (2*C2*m0m0*p1p1pat)/3. - (B1102*p1p2pat)/2. + \
+(B1112*p1p2pat)/2.)*p2p2pat)/6. -
+ - ((-5*f2*p1p1pat)/6. + (f1*p1p2pat)/2.)*(p1p2pat/18. + \
+(B012*p1p2pat)/6. + (B1112*p1p2pat)/2. + (2*B112*p1p2pat)/3. - \
+(C1*m0m0*p1p2pat)/3. -
+ - p2p2pat/18. - (B1112*p2p2pat)/2. - (B112*p2p2pat)/3. + \
+(C2*m0m0*p2p2pat)/3.)))/3.)/
+ - ((5*f2**3*p1p1pat*p1p2pat**2)/18. - (f1*f2**2*p1p2pat**3)/6. - \
+(2*f1*f2**2*p1p1pat*p1p2pat*p2p2pat)/3. + (5*f1**2*f2*p1p2pat**2*p2p2pat)/12. \
++
+ - (5*f1**2*f2*p1p1pat*p2p2pat**2)/12. - \
+(5*f1**3*p1p2pat*p2p2pat**2)/18.))),
+ - Rule(C12,-(-15*B012*f1*f2*p1p1pat*p1p2pat**2 + \
+15*B1101*f1*f2*p1p1pat*p1p2pat**2 - 15*B1112*f1*f2*p1p1pat*p1p2pat**2 - \
+30*B112*f1*f2*p1p1pat*p1p2pat**2 -
+ - 5*f2**2*p1p1pat*p1p2pat**2 - 15*B012*f2**2*p1p1pat*p1p2pat**2 - \
+45*B1112*f2**2*p1p1pat*p1p2pat**2 - 60*B112*f2**2*p1p1pat*p1p2pat**2 +
+ - 30*C1*f2**2*m0m0*p1p1pat*p1p2pat**2 + 9*B012*f1**2*p1p2pat**3 - \
+9*B1101*f1**2*p1p2pat**3 + 9*B1112*f1**2*p1p2pat**3 + \
+18*B112*f1**2*p1p2pat**3 +
+ - 3*f1*f2*p1p2pat**3 + 9*B012*f1*f2*p1p2pat**3 + \
+27*B1112*f1*f2*p1p2pat**3 + 36*B112*f1*f2*p1p2pat**3 - \
+18*C1*f1*f2*m0m0*p1p2pat**3 +
+ - 5*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+30*B012*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+90*B1112*f1*f2*p1p1pat*p1p2pat*p2p2pat +
+ - 120*B112*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+3*f2**2*p1p1pat*p1p2pat*p2p2pat + 54*B1112*f2**2*p1p1pat*p1p2pat*p2p2pat +
+ - 36*B112*f2**2*p1p1pat*p1p2pat*p2p2pat - \
+30*C1*f1*f2*m0m0*p1p1pat*p1p2pat*p2p2pat - \
+18*C2*f2**2*m0m0*p1p1pat*p1p2pat*p2p2pat - 3*f1**2*p1p2pat**2*p2p2pat -
+ - 18*B012*f1**2*p1p2pat**2*p2p2pat - \
+54*B1112*f1**2*p1p2pat**2*p2p2pat - 72*B112*f1**2*p1p2pat**2*p2p2pat - \
+3*f1*f2*p1p2pat**2*p2p2pat -
+ - 27*B1112*f1*f2*p1p2pat**2*p2p2pat - \
+18*B112*f1*f2*p1p2pat**2*p2p2pat + 9*B1102*f2**2*p1p2pat**2*p2p2pat - \
+9*B1112*f2**2*p1p2pat**2*p2p2pat +
+ - 18*C1*f1**2*m0m0*p1p2pat**2*p2p2pat + \
+18*C2*f1*f2*m0m0*p1p2pat**2*p2p2pat - 5*f1*f2*p1p1pat*p2p2pat**2 - \
+90*B1112*f1*f2*p1p1pat*p2p2pat**2 -
+ - 60*B112*f1*f2*p1p1pat*p2p2pat**2 + \
+30*C2*f1*f2*m0m0*p1p1pat*p2p2pat**2 + 5*f1**2*p1p2pat*p2p2pat**2 + \
+45*B1112*f1**2*p1p2pat*p2p2pat**2 +
+ - 30*B112*f1**2*p1p2pat*p2p2pat**2 - \
+15*B1102*f1*f2*p1p2pat*p2p2pat**2 + 15*B1112*f1*f2*p1p2pat*p2p2pat**2 - \
+30*C2*f1**2*m0m0*p1p2pat*p2p2pat**2)/
+ - (6.*(10*f2**3*p1p1pat*p1p2pat**2 - 6*f1*f2**2*p1p2pat**3 - \
+24*f1*f2**2*p1p1pat*p1p2pat*p2p2pat + 15*f1**2*f2*p1p2pat**2*p2p2pat +
+ - 15*f1**2*f2*p1p1pat*p2p2pat**2 - 10*f1**3*p1p2pat*p2p2pat**2))),
+ - Rule(C22,-(3*B012*f1**2*p1p1pat*p1p2pat**2 - \
+3*B1101*f1**2*p1p1pat*p1p2pat**2 + 3*B1112*f1**2*p1p1pat*p1p2pat**2 + \
+6*B112*f1**2*p1p1pat*p1p2pat**2 +
+ - f1*f2*p1p1pat*p1p2pat**2 + 3*B012*f1*f2*p1p1pat*p1p2pat**2 + \
+9*B1112*f1*f2*p1p1pat*p1p2pat**2 + 12*B112*f1*f2*p1p1pat*p1p2pat**2 -
+ - 4*f2**2*p1p1pat*p1p2pat**2 + 18*B1112*f2**2*p1p1pat*p1p2pat**2 \
++ 12*B112*f2**2*p1p1pat*p1p2pat**2 - 6*C1*f1*f2*m0m0*p1p1pat*p1p2pat**2 +
+ - 24*C2*f2**2*m0m0*p1p1pat*p1p2pat**2 + 18*B1102*f2**2*p1p2pat**3 \
+- 18*B1112*f2**2*p1p2pat**3 - f1**2*p1p1pat*p1p2pat*p2p2pat -
+ - 6*B012*f1**2*p1p1pat*p1p2pat*p2p2pat - \
+18*B1112*f1**2*p1p1pat*p1p2pat*p2p2pat - \
+24*B112*f1**2*p1p1pat*p1p2pat*p2p2pat + 9*f1*f2*p1p1pat*p1p2pat*p2p2pat -
+ - 54*B1112*f1*f2*p1p1pat*p1p2pat*p2p2pat - \
+36*B112*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+6*C1*f1**2*m0m0*p1p1pat*p1p2pat*p2p2pat -
+ - 54*C2*f1*f2*m0m0*p1p1pat*p1p2pat*p2p2pat - \
+45*B1102*f1*f2*p1p2pat**2*p2p2pat + 45*B1112*f1*f2*p1p2pat**2*p2p2pat - \
+5*f1**2*p1p1pat*p2p2pat**2 +
+ - 45*B1112*f1**2*p1p1pat*p2p2pat**2 + \
+30*B112*f1**2*p1p1pat*p2p2pat**2 + 30*C2*f1**2*m0m0*p1p1pat*p2p2pat**2 + \
+30*B1102*f1**2*p1p2pat*p2p2pat**2 -
+ - 30*B1112*f1**2*p1p2pat*p2p2pat**2)/
+ - (3.*(10*f2**3*p1p1pat*p1p2pat**2 - 6*f1*f2**2*p1p2pat**3 - \
+24*f1*f2**2*p1p1pat*p1p2pat*p2p2pat + 15*f1**2*f2*p1p2pat**2*p2p2pat +
+ - 15*f1**2*f2*p1p1pat*p2p2pat**2 - \
+10*f1**3*p1p2pat*p2p2pat**2)))))\
+\>", "Output",
+ CellChangeTimes->{3.6641795203076763`*^9, 3.6641840665190496`*^9,
+ 3.6641866367696867`*^9, 3.664189192743429*^9, 3.6645337986875477`*^9,
+ 3.664537089821722*^9, 3.664539066890615*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"W2", " ", "\[Equal]", " ", "0"}], "&&", " ",
+ RowBox[{"W4", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"W6", " ", "\[Equal]", " ", "0"}]}], ",", " ",
+ RowBox[{"{",
+ RowBox[{"C11", ",", "C12", ",", "C22"}], "}"}]}], " ", "]"}]], "Input",
+ CellChangeTimes->{{3.664176469998559*^9, 3.664176474806588*^9}, {
+ 3.664607102829192*^9, 3.664607113580819*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"C11", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "12"}], " ", "C1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"9", " ", "B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "B1101", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"18", " ", "B112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "B012", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"12", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"18", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"12", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"9", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}]}], ")"}]}], "-",
+ RowBox[{"6", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "3"}], " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "12"}], " ", "C2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"9", " ", "B1102", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"6", " ", "C2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"3", " ", "B012", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "B112", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "B112", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"9", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}]}], ")"}]}]}], ")"}], "/",
+
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"18", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"9", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"9", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"18", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"12", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "f1", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"9", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "f2", " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}],
+ ")"}]}]}], ",",
+ RowBox[{"C12", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"30", " ", "C2", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"90", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"60", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"5", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"54", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"36", " ", "B112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"18", " ", "C2", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"30", " ", "C1", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "B012", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"90", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"120", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"5", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"45", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"5", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"30", " ", "C2", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "B1102", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"15", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "B012", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"45", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"60", " ", "B112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"5", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"30", " ", "C1", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"15", " ", "B012", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"15", " ", "B1101", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"15", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"30", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"18", " ", "B012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"54", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"72", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "B1102", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"18", " ", "C1", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"18", " ", "C2", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"27", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"18", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "B012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "B1101", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"18", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"18", " ", "C1", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "B012", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"27", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"36", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"6", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "10"}], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "3"]}], "+",
+ RowBox[{"15", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"], " ",
+ SuperscriptBox["f1", "2"]}], "+",
+ RowBox[{"15", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "-",
+ RowBox[{"24", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ", "f1"}], "-",
+ RowBox[{"6", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ", "f1"}], "+",
+ RowBox[{"10", " ",
+ SuperscriptBox["f2", "3"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ",",
+ RowBox[{"C22", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"45", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"30", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"5", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"30", " ", "C2", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"6", " ", "B012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"18", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"24", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C1", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"54", " ", "C2", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"54", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"36", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "B1102", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"30", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "B012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "B1101", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "B1112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "B112", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"18", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"12", " ", "B112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"24", " ", "C2", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "C1", " ", "f1", " ", "f2", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "B012", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"12", " ", "B112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "-",
+ RowBox[{"45", " ", "B1102", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"45", " ", "B1112", " ", "f1", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}], "+",
+ RowBox[{"18", " ", "B1102", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"18", " ", "B1112", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "10"}], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "3"]}], "+",
+ RowBox[{"15", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "3"], " ",
+ SuperscriptBox["f1", "2"]}], "+",
+ RowBox[{"15", " ", "f2", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "-",
+ RowBox[{"24", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ", "f1"}], "-",
+ RowBox[{"6", " ",
+ SuperscriptBox["f2", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm], "2"], " ", "f1"}], "+",
+ RowBox[{"10", " ",
+ SuperscriptBox["f2", "3"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p1",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p2",
+ TraditionalForm]}]}]}], ")"}]}], ")"}]}], ")"}]}]}]}], "}"}],
+ "}"}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664176475608076*^9, 3.6641840708288794`*^9,
+ 3.664186645931883*^9, 3.6641891987784557`*^9, 3.664533800199809*^9,
+ 3.6645370911049013`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"InputForm", "[", "%", "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p1p2pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p1", "]"}], ",",
+ RowBox[{"Momentum", "[", "p1", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p1p1pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p2", "]"}], ",",
+ RowBox[{"Momentum", "[", "p2", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p2p2pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"m0", "^", "2"}], "\[Rule]", " ", "m0m0"}]}], "}"}]}]], "Input"],
+
+Cell["\<\
+{{C11 -> -((-((9*B012*p1p1pat - 9*B1101*p1p1pat + 9*B1112*p1p1pat + \
+18*B112*p1p1pat + 2*p1p2pat - 3*B012*p1p2pat - 9*B1112*p1p2pat - \
+12*B112*p1p2pat -
+ 12*C1*m0m0*p1p2pat)*(18*f1*f2*p1p2pat^2 - (12*f2*p1p1pat - \
+12*f1*p1p2pat)*(-15*f2*p1p2pat + 9*f1*p2p2pat))) -
+ 6*f2*p1p2pat*(-3*f2*p1p2pat*(2*p1p2pat - 9*B1112*p1p2pat - \
+6*B112*p1p2pat - 12*C2*m0m0*p1p2pat - 9*B1102*p2p2pat + 9*B1112*p2p2pat) -
+ (-p1p1pat - 3*B012*p1p1pat - 9*B1112*p1p1pat - 12*B112*p1p1pat + \
+6*C1*m0m0*p1p1pat + p1p2pat + 9*B1112*p1p2pat + 6*B112*p1p2pat - \
+6*C2*m0m0*p1p2pat)*
+ (-15*f2*p1p2pat + \
+9*f1*p2p2pat)))/(18*f1*f2*p1p1pat*p1p2pat*(-15*f2*p1p2pat + 9*f1*p2p2pat) - \
+(9*f2*p1p1pat - 15*f1*p1p2pat)*
+ (18*f1*f2*p1p2pat^2 - (12*f2*p1p1pat - 12*f1*p1p2pat)*(-15*f2*p1p2pat \
++ 9*f1*p2p2pat)))),
+ C12 -> -(-15*B012*f1*f2*p1p1pat^2*p1p2pat + \
+15*B1101*f1*f2*p1p1pat^2*p1p2pat - 15*B1112*f1*f2*p1p1pat^2*p1p2pat - \
+30*B112*f1*f2*p1p1pat^2*p1p2pat -
+ 5*f2^2*p1p1pat^2*p1p2pat - 15*B012*f2^2*p1p1pat^2*p1p2pat - \
+45*B1112*f2^2*p1p1pat^2*p1p2pat - 60*B112*f2^2*p1p1pat^2*p1p2pat + \
+30*C1*f2^2*m0m0*p1p1pat^2*p1p2pat +
+ 5*f1*f2*p1p1pat*p1p2pat^2 + 30*B012*f1*f2*p1p1pat*p1p2pat^2 + \
+90*B1112*f1*f2*p1p1pat*p1p2pat^2 + 120*B112*f1*f2*p1p1pat*p1p2pat^2 + \
+3*f2^2*p1p1pat*p1p2pat^2 +
+ 54*B1112*f2^2*p1p1pat*p1p2pat^2 + 36*B112*f2^2*p1p1pat*p1p2pat^2 - \
+30*C1*f1*f2*m0m0*p1p1pat*p1p2pat^2 - 18*C2*f2^2*m0m0*p1p1pat*p1p2pat^2 - \
+5*f1*f2*p1p2pat^3 -
+ 90*B1112*f1*f2*p1p2pat^3 - 60*B112*f1*f2*p1p2pat^3 + \
+30*C2*f1*f2*m0m0*p1p2pat^3 + 9*B012*f1^2*p1p1pat^2*p2p2pat - \
+9*B1101*f1^2*p1p1pat^2*p2p2pat +
+ 9*B1112*f1^2*p1p1pat^2*p2p2pat + 18*B112*f1^2*p1p1pat^2*p2p2pat + \
+3*f1*f2*p1p1pat^2*p2p2pat + 9*B012*f1*f2*p1p1pat^2*p2p2pat + \
+27*B1112*f1*f2*p1p1pat^2*p2p2pat +
+ 36*B112*f1*f2*p1p1pat^2*p2p2pat - 18*C1*f1*f2*m0m0*p1p1pat^2*p2p2pat - \
+3*f1^2*p1p1pat*p1p2pat*p2p2pat - 18*B012*f1^2*p1p1pat*p1p2pat*p2p2pat -
+ 54*B1112*f1^2*p1p1pat*p1p2pat*p2p2pat - \
+72*B112*f1^2*p1p1pat*p1p2pat*p2p2pat - 3*f1*f2*p1p1pat*p1p2pat*p2p2pat - \
+27*B1112*f1*f2*p1p1pat*p1p2pat*p2p2pat -
+ 18*B112*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+9*B1102*f2^2*p1p1pat*p1p2pat*p2p2pat - 9*B1112*f2^2*p1p1pat*p1p2pat*p2p2pat + \
+18*C1*f1^2*m0m0*p1p1pat*p1p2pat*p2p2pat +
+ 18*C2*f1*f2*m0m0*p1p1pat*p1p2pat*p2p2pat + 5*f1^2*p1p2pat^2*p2p2pat + \
+45*B1112*f1^2*p1p2pat^2*p2p2pat + 30*B112*f1^2*p1p2pat^2*p2p2pat -
+ 15*B1102*f1*f2*p1p2pat^2*p2p2pat + 15*B1112*f1*f2*p1p2pat^2*p2p2pat - \
+30*C2*f1^2*m0m0*p1p2pat^2*p2p2pat)/
+ (6*(10*f2^3*p1p1pat^2*p1p2pat - 24*f1*f2^2*p1p1pat*p1p2pat^2 + \
+15*f1^2*f2*p1p2pat^3 - 6*f1*f2^2*p1p1pat^2*p2p2pat + \
+15*f1^2*f2*p1p1pat*p1p2pat*p2p2pat -
+ 10*f1^3*p1p2pat^2*p2p2pat)), C22 -> -(3*B012*f1^2*p1p1pat^2*p1p2pat - \
+3*B1101*f1^2*p1p1pat^2*p1p2pat + 3*B1112*f1^2*p1p1pat^2*p1p2pat +
+ 6*B112*f1^2*p1p1pat^2*p1p2pat + f1*f2*p1p1pat^2*p1p2pat + \
+3*B012*f1*f2*p1p1pat^2*p1p2pat + 9*B1112*f1*f2*p1p1pat^2*p1p2pat + \
+12*B112*f1*f2*p1p1pat^2*p1p2pat -
+ 4*f2^2*p1p1pat^2*p1p2pat + 18*B1112*f2^2*p1p1pat^2*p1p2pat + \
+12*B112*f2^2*p1p1pat^2*p1p2pat - 6*C1*f1*f2*m0m0*p1p1pat^2*p1p2pat +
+ 24*C2*f2^2*m0m0*p1p1pat^2*p1p2pat - f1^2*p1p1pat*p1p2pat^2 - \
+6*B012*f1^2*p1p1pat*p1p2pat^2 - 18*B1112*f1^2*p1p1pat*p1p2pat^2 - \
+24*B112*f1^2*p1p1pat*p1p2pat^2 +
+ 9*f1*f2*p1p1pat*p1p2pat^2 - 54*B1112*f1*f2*p1p1pat*p1p2pat^2 - \
+36*B112*f1*f2*p1p1pat*p1p2pat^2 + 6*C1*f1^2*m0m0*p1p1pat*p1p2pat^2 -
+ 54*C2*f1*f2*m0m0*p1p1pat*p1p2pat^2 - 5*f1^2*p1p2pat^3 + \
+45*B1112*f1^2*p1p2pat^3 + 30*B112*f1^2*p1p2pat^3 + 30*C2*f1^2*m0m0*p1p2pat^3 +
+ 18*B1102*f2^2*p1p1pat^2*p2p2pat - 18*B1112*f2^2*p1p1pat^2*p2p2pat - \
+45*B1102*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+45*B1112*f1*f2*p1p1pat*p1p2pat*p2p2pat +
+ 30*B1102*f1^2*p1p2pat^2*p2p2pat - \
+30*B1112*f1^2*p1p2pat^2*p2p2pat)/(3*(10*f2^3*p1p1pat^2*p1p2pat - \
+24*f1*f2^2*p1p1pat*p1p2pat^2 + 15*f1^2*f2*p1p2pat^3 -
+ 6*f1*f2^2*p1p1pat^2*p2p2pat + 15*f1^2*f2*p1p1pat*p1p2pat*p2p2pat - \
+10*f1^3*p1p2pat^2*p2p2pat))}}\
+\>", "Output",
+ CellChangeTimes->{3.664537118134466*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.664537119325597*^9, 3.664537127282928*^9}}],
+
+Cell["\<\
+ List(List(Rule(C11,-((-((9*B012*p1p1pat - 9*B1101*p1p1pat + \
+9*B1112*p1p1pat + 18*B112*p1p1pat + 2*p1p2pat - 3*B012*p1p2pat - \
+9*B1112*p1p2pat - 12*B112*p1p2pat -
+ - 12*C1*m0m0*p1p2pat)*(18*f1*f2*p1p2pat**2 - (12*f2*p1p1pat \
+- 12*f1*p1p2pat)*(-15*f2*p1p2pat + 9*f1*p2p2pat))) -
+ - 6*f2*p1p2pat*(-3*f2*p1p2pat*(2*p1p2pat - 9*B1112*p1p2pat - \
+6*B112*p1p2pat - 12*C2*m0m0*p1p2pat - 9*B1102*p2p2pat + 9*B1112*p2p2pat) -
+ - (-p1p1pat - 3*B012*p1p1pat - 9*B1112*p1p1pat - \
+12*B112*p1p1pat + 6*C1*m0m0*p1p1pat + p1p2pat + 9*B1112*p1p2pat + \
+6*B112*p1p2pat - 6*C2*m0m0*p1p2pat)*
+ - (-15*f2*p1p2pat + 9*f1*p2p2pat)))/
+ - (18*f1*f2*p1p1pat*p1p2pat*(-15*f2*p1p2pat + 9*f1*p2p2pat) -
+ - (9*f2*p1p1pat - 15*f1*p1p2pat)*(18*f1*f2*p1p2pat**2 - \
+(12*f2*p1p1pat - 12*f1*p1p2pat)*(-15*f2*p1p2pat + 9*f1*p2p2pat))))),
+ - Rule(C12,-(-15*B012*f1*f2*p1p1pat**2*p1p2pat + \
+15*B1101*f1*f2*p1p1pat**2*p1p2pat - 15*B1112*f1*f2*p1p1pat**2*p1p2pat - \
+30*B112*f1*f2*p1p1pat**2*p1p2pat -
+ - 5*f2**2*p1p1pat**2*p1p2pat - 15*B012*f2**2*p1p1pat**2*p1p2pat - \
+45*B1112*f2**2*p1p1pat**2*p1p2pat - 60*B112*f2**2*p1p1pat**2*p1p2pat +
+ - 30*C1*f2**2*m0m0*p1p1pat**2*p1p2pat + \
+5*f1*f2*p1p1pat*p1p2pat**2 + 30*B012*f1*f2*p1p1pat*p1p2pat**2 + \
+90*B1112*f1*f2*p1p1pat*p1p2pat**2 +
+ - 120*B112*f1*f2*p1p1pat*p1p2pat**2 + 3*f2**2*p1p1pat*p1p2pat**2 \
++ 54*B1112*f2**2*p1p1pat*p1p2pat**2 + 36*B112*f2**2*p1p1pat*p1p2pat**2 -
+ - 30*C1*f1*f2*m0m0*p1p1pat*p1p2pat**2 - \
+18*C2*f2**2*m0m0*p1p1pat*p1p2pat**2 - 5*f1*f2*p1p2pat**3 - \
+90*B1112*f1*f2*p1p2pat**3 - 60*B112*f1*f2*p1p2pat**3 +
+ - 30*C2*f1*f2*m0m0*p1p2pat**3 + 9*B012*f1**2*p1p1pat**2*p2p2pat - \
+9*B1101*f1**2*p1p1pat**2*p2p2pat + 9*B1112*f1**2*p1p1pat**2*p2p2pat +
+ - 18*B112*f1**2*p1p1pat**2*p2p2pat + 3*f1*f2*p1p1pat**2*p2p2pat + \
+9*B012*f1*f2*p1p1pat**2*p2p2pat + 27*B1112*f1*f2*p1p1pat**2*p2p2pat +
+ - 36*B112*f1*f2*p1p1pat**2*p2p2pat - \
+18*C1*f1*f2*m0m0*p1p1pat**2*p2p2pat - 3*f1**2*p1p1pat*p1p2pat*p2p2pat - \
+18*B012*f1**2*p1p1pat*p1p2pat*p2p2pat -
+ - 54*B1112*f1**2*p1p1pat*p1p2pat*p2p2pat - \
+72*B112*f1**2*p1p1pat*p1p2pat*p2p2pat - 3*f1*f2*p1p1pat*p1p2pat*p2p2pat -
+ - 27*B1112*f1*f2*p1p1pat*p1p2pat*p2p2pat - \
+18*B112*f1*f2*p1p1pat*p1p2pat*p2p2pat + 9*B1102*f2**2*p1p1pat*p1p2pat*p2p2pat \
+-
+ - 9*B1112*f2**2*p1p1pat*p1p2pat*p2p2pat + \
+18*C1*f1**2*m0m0*p1p1pat*p1p2pat*p2p2pat + \
+18*C2*f1*f2*m0m0*p1p1pat*p1p2pat*p2p2pat + 5*f1**2*p1p2pat**2*p2p2pat +
+ - 45*B1112*f1**2*p1p2pat**2*p2p2pat + \
+30*B112*f1**2*p1p2pat**2*p2p2pat - 15*B1102*f1*f2*p1p2pat**2*p2p2pat + \
+15*B1112*f1*f2*p1p2pat**2*p2p2pat -
+ - 30*C2*f1**2*m0m0*p1p2pat**2*p2p2pat)/
+ - (6.*(10*f2**3*p1p1pat**2*p1p2pat - 24*f1*f2**2*p1p1pat*p1p2pat**2 \
++ 15*f1**2*f2*p1p2pat**3 - 6*f1*f2**2*p1p1pat**2*p2p2pat +
+ - 15*f1**2*f2*p1p1pat*p1p2pat*p2p2pat - \
+10*f1**3*p1p2pat**2*p2p2pat))),
+ - Rule(C22,-(3*B012*f1**2*p1p1pat**2*p1p2pat - \
+3*B1101*f1**2*p1p1pat**2*p1p2pat + 3*B1112*f1**2*p1p1pat**2*p1p2pat + \
+6*B112*f1**2*p1p1pat**2*p1p2pat +
+ - f1*f2*p1p1pat**2*p1p2pat + 3*B012*f1*f2*p1p1pat**2*p1p2pat + \
+9*B1112*f1*f2*p1p1pat**2*p1p2pat + 12*B112*f1*f2*p1p1pat**2*p1p2pat -
+ - 4*f2**2*p1p1pat**2*p1p2pat + 18*B1112*f2**2*p1p1pat**2*p1p2pat \
++ 12*B112*f2**2*p1p1pat**2*p1p2pat - 6*C1*f1*f2*m0m0*p1p1pat**2*p1p2pat +
+ - 24*C2*f2**2*m0m0*p1p1pat**2*p1p2pat - f1**2*p1p1pat*p1p2pat**2 \
+- 6*B012*f1**2*p1p1pat*p1p2pat**2 - 18*B1112*f1**2*p1p1pat*p1p2pat**2 -
+ - 24*B112*f1**2*p1p1pat*p1p2pat**2 + 9*f1*f2*p1p1pat*p1p2pat**2 - \
+54*B1112*f1*f2*p1p1pat*p1p2pat**2 - 36*B112*f1*f2*p1p1pat*p1p2pat**2 +
+ - 6*C1*f1**2*m0m0*p1p1pat*p1p2pat**2 - \
+54*C2*f1*f2*m0m0*p1p1pat*p1p2pat**2 - 5*f1**2*p1p2pat**3 + \
+45*B1112*f1**2*p1p2pat**3 + 30*B112*f1**2*p1p2pat**3 +
+ - 30*C2*f1**2*m0m0*p1p2pat**3 + 18*B1102*f2**2*p1p1pat**2*p2p2pat \
+- 18*B1112*f2**2*p1p1pat**2*p2p2pat - 45*B1102*f1*f2*p1p1pat*p1p2pat*p2p2pat +
+ - 45*B1112*f1*f2*p1p1pat*p1p2pat*p2p2pat + \
+30*B1102*f1**2*p1p2pat**2*p2p2pat - 30*B1112*f1**2*p1p2pat**2*p2p2pat)/
+ - (3.*(10*f2**3*p1p1pat**2*p1p2pat - 24*f1*f2**2*p1p1pat*p1p2pat**2 \
++ 15*f1**2*f2*p1p2pat**3 - 6*f1*f2**2*p1p1pat**2*p2p2pat +
+ - 15*f1**2*f2*p1p1pat*p1p2pat*p2p2pat - \
+10*f1**3*p1p2pat**2*p2p2pat)))))\
+\>", "Output",
+ CellChangeTimes->{3.664537128185556*^9}]
+}, Open ]]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell["General definitions for D functions", "Section",
+ CellChangeTimes->{{3.663578546448781*^9, 3.663578558304669*^9},
+ 3.664537092962103*^9}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Dmunu", "=", " ",
+ RowBox[{
+ RowBox[{"D00", " ",
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"D11", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"D22", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{"D33", " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}], " ",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}]}], "+", " ",
+ RowBox[{"D12",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"D13",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}]}]}], ")"}]}], " ", "+", " ",
+ "\[IndentingNewLine]",
+ RowBox[{"D23",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}]}]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.663578732787197*^9, 3.663578785778996*^9}, {
+ 3.663578897017915*^9, 3.663579044383944*^9}, {3.663579102482864*^9,
+ 3.6635791431197844`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}], "+",
+ RowBox[{"D11", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D12", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D22", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.66357950596212*^9, 3.664536214016148*^9,
+ 3.664603210437014*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Dmunu", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"p1", "\[Rule]", " ", "p"}], ",", " ",
+ RowBox[{"p2", "\[Rule]", "p"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.6635791855823402`*^9, 3.663579220085588*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}], "+",
+ RowBox[{"D11", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ", "D12", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D13", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D22", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D23", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.663579220865505*^9, 3.663579331401225*^9, 3.663579436572403*^9,
+ 3.663579506923571*^9, {3.663579713225573*^9, 3.66357974273286*^9},
+ 3.6645362148344593`*^9, 3.664603211276533*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6635797351668053`*^9, 3.663579739422244*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"D11", "+",
+ RowBox[{"2", " ", "D12"}], "+", "D22"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D13", "+", "D23"}], ")"}], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D13", "+", "D23"}], ")"}], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663579743667715*^9, 3.664536216993141*^9,
+ 3.664603211953971*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D13", " ", "+", " ", "D23"}], ")"}], " ", "\[Rule]", " ",
+ "D3a"}], ",", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D11", " ", "+", " ", "D22", " ", "+", " ",
+ RowBox[{"2", "D12"}]}], ")"}], " ", "\[Rule]", " ", "Daa"}]}],
+ "}"}]}]], "Input",
+ CellChangeTimes->{{3.6635792737606087`*^9, 3.66357932534656*^9}, {
+ 3.6635797051191597`*^9, 3.66357971069479*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D3a", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.663579300168679*^9, 3.66357933276917*^9},
+ 3.663579440628474*^9, {3.663579509871398*^9, 3.6635795221834087`*^9},
+ 3.66357971402485*^9, 3.663579744894924*^9, 3.664536218333476*^9,
+ 3.664603212532741*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{"D00", ",", " ", "D3a", ",", " ", "Daa", ",", " ", "D33"}],
+ "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.6635794443471203`*^9, 3.663579490675565*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663579492013946*^9, 3.6635795241543694`*^9,
+ 3.66357974960872*^9, 3.664536219384623*^9, 3.6646032131130657`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Dmunualt", " ", "=", " ", "%"}]], "Input",
+ CellChangeTimes->{{3.663579789662622*^9, 3.663579793461821*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663579794254849*^9, 3.66453622034194*^9,
+ 3.6646032136667013`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["Dmunualt"], "Input",
+ CellChangeTimes->{{3.663579801673222*^9, 3.663579828813765*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6635798301341257`*^9, 3.66453622161377*^9,
+ 3.664603214706287*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["D1, D2, D3 & D00 extended method", "Section",
+ CellChangeTimes->{{3.6635786683679657`*^9, 3.663578690311791*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T1contract", " ", "=", " ",
+ RowBox[{"Contract", "[",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ".", "Dmunualt"}],
+ "]"}]}]], "Input",
+ CellChangeTimes->{{3.663580742424439*^9, 3.663580794319236*^9}, {
+ 3.663581084517768*^9, 3.6635810854455013`*^9}, {3.6635820696110983`*^9,
+ 3.663582074034663*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"4", " ", "D00"}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "D3a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6635807636452436`*^9, 3.663580795259726*^9, 3.663580832382539*^9,
+ 3.663581086074712*^9, 3.663582074713128*^9, 3.663582292875054*^9,
+ 3.6635826209371758`*^9, {3.664536202651491*^9, 3.6645362258011703`*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T2contract", " ", "=", " ",
+ RowBox[{"Contract", "[",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}], ".", "Dmunualt"}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{{3.663581127690057*^9, 3.663581161697137*^9}, {
+ 3.6635820769068737`*^9, 3.663582083314788*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6635811624618673`*^9, 3.663582083931705*^9,
+ 3.663582621850415*^9, 3.664536227320572*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T3contract", " ", "=",
+ RowBox[{"Contract", "[",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Mu]"}], "]"}], ".", "Dmunualt"}], "]"}]}]], "Input",\
+
+ CellChangeTimes->{
+ 3.663581203268602*^9, {3.663582085442855*^9, 3.663582089138796*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"D3a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663581205364729*^9, 3.6635820904646606`*^9,
+ 3.6635826226797943`*^9, 3.664536234707906*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T1", " ", "=", " ",
+ RowBox[{"C0123", " ", "+",
+ RowBox[{
+ RowBox[{"m0", "^", "2"}], "*", "D0"}]}]}]], "Input",
+ CellChangeTimes->{{3.663581289396461*^9, 3.663581290523594*^9}, {
+ 3.663581330651414*^9, 3.663581362827319*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"C0123", "+",
+ RowBox[{"D0", " ",
+ SuperscriptBox["m0", "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663581365987995*^9, 3.663582290559729*^9,
+ 3.663582623452948*^9, 3.66453623560748*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "C1012"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "C2012"}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "C2123"}], " ", "+",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "C2123"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "C0123"}], " ", "-", " ",
+ RowBox[{"f3",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "Da"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "D3"}]}], ")"}]}]}],
+ ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.6635814582401247`*^9, 3.663581469899685*^9}, {
+ 3.663581521758355*^9, 3.663581534222144*^9}, {3.663581570957966*^9,
+ 3.663581726174275*^9}, {3.6635824894417877`*^9, 3.663582497217196*^9}, {
+ 3.663589707402273*^9, 3.663589720161861*^9}, {3.6635897557616796`*^9,
+ 3.6635897583300247`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C1012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C2012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"f3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.663581711362471*^9, 3.663581726888905*^9},
+ 3.663582512715004*^9, 3.6635826240951633`*^9, 3.663589781528833*^9,
+ 3.664536237508471*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T3", " ", "=",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "C1023"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "C2023"}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "C2123"}], " ", "+",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "C2123"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "C0123"}], " ", "-", " ",
+ RowBox[{"f1",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "Da"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "D3"}]}], ")"}]}]}],
+ ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.6635818250560827`*^9, 3.6635819671408157`*^9}, {
+ 3.66358250455337*^9, 3.663582522176745*^9}, {3.663589807236721*^9,
+ 3.663589810757173*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C1023", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C2023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"f1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.66358196795091*^9, {3.6635825092739*^9, 3.6635825236948013`*^9},
+ 3.6635826248907843`*^9, 3.66358982495378*^9, 3.664536239895975*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I1", " ", "=", " ",
+ RowBox[{"T1", "-", "T1contract"}]}]], "Input",
+ CellChangeTimes->{{3.6635833288960133`*^9, 3.663583340876259*^9}, {
+ 3.6635867307315197`*^9, 3.6635867322112417`*^9}, {3.663587322820372*^9,
+ 3.6635873234279613`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"C0123", "+",
+ RowBox[{"D0", " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"4", " ", "D00"}], "-",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D3a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.663583336424182*^9, 3.663583341352023*^9},
+ 3.663586733248958*^9, 3.66358732392984*^9, 3.6635898273095903`*^9,
+ 3.664536241254401*^9, 3.664536339094496*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2", " ", "-", " ", "T2contract"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.6635833526903973`*^9, 3.6635833657395687`*^9},
+ 3.6635855647561693`*^9, {3.663585882585924*^9, 3.663585907865595*^9}, {
+ 3.6635862279357147`*^9, 3.663586261550604*^9}, {3.663586465301867*^9,
+ 3.663586549748898*^9}, 3.6635865809416103`*^9, {3.6635866632844553`*^9,
+ 3.663586664148427*^9}, {3.66358730087704*^9, 3.6635873019007187`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C2123"}], "-",
+ RowBox[{"2", " ", "D00"}], "-",
+ RowBox[{"D3", " ", "f3"}], "-",
+ RowBox[{"2", " ", "D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D3a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.6635833675571003`*^9, {3.663585456580127*^9, 3.663585462637714*^9},
+ 3.66358556825303*^9, {3.663585909049821*^9, 3.6635859213049183`*^9}, {
+ 3.6635862307814703`*^9, 3.663586272892437*^9}, {3.6635864790343437`*^9,
+ 3.663586553403799*^9}, 3.6635865837043247`*^9, 3.66358669918575*^9,
+ 3.6635873042781076`*^9, 3.66358982878548*^9, 3.664536242345714*^9,
+ 3.664536340188238*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2", "-", " ", "T2contract"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.66358659350902*^9, 3.663586597860587*^9}, {
+ 3.663586671668498*^9, 3.6635866723243933`*^9}, {3.6635873093492203`*^9,
+ 3.663587309708828*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"C0123", "+", "C1012", "+", "C2012", "+", "C2123", "-",
+ RowBox[{"2", " ", "D3a", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"Da", " ", "f3"}], "-",
+ RowBox[{"2", " ", "Daa", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663586599216949*^9, 3.663586700025276*^9,
+ 3.663587310274879*^9, 3.6635898309403267`*^9, 3.664536341569895*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I4", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3", "-", " ", "T3contract"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.663582452819666*^9, 3.6635824571196823`*^9}, {
+ 3.663582571151566*^9, 3.663582571447323*^9}, 3.6635866230216417`*^9, {
+ 3.663586678556408*^9, 3.66358668120432*^9}, {3.663587313413014*^9,
+ 3.663587313780774*^9}, {3.663587701578363*^9, 3.663587704018065*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"C0123", "+", "C1023", "+", "C2123", "-",
+ RowBox[{"2", " ", "D00"}], "-",
+ RowBox[{"2", " ", "D3a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"Da", " ", "f1"}], "-",
+ RowBox[{"2", " ", "Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.663582457861354*^9, {3.663582553365747*^9, 3.663582596711524*^9},
+ 3.663582627320332*^9, 3.6635866259003897`*^9, 3.6635867007808647`*^9,
+ 3.663587314269463*^9, 3.663587712257543*^9, 3.6635898334283457`*^9,
+ 3.66453634241112*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I5", " ", "=",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3", "-", " ", "T3contract"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.663586639692395*^9, 3.6635866426762238`*^9}, {
+ 3.6635866888287086`*^9, 3.663586692628154*^9}, {3.6635873167490664`*^9,
+ 3.663587318084765*^9}, {3.663587706746325*^9, 3.663587710025964*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"C2023", "-", "C2123", "-",
+ RowBox[{"D3", " ", "f1"}], "-",
+ RowBox[{"2", " ", "D33", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "D3a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663586645827468*^9, 3.663586701531266*^9,
+ 3.663587318777388*^9, 3.663587712981386*^9, 3.663589835204631*^9,
+ 3.6645363440794*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I1", " ", "-", "I2", " ", "-", "I4"}]], "Input",
+ CellChangeTimes->{{3.6635877643884974`*^9, 3.66358776861677*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C1023", "-", "C2123", "+",
+ RowBox[{"2", " ", "D00"}], "+",
+ RowBox[{"2", " ", "D3a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Da", " ", "f1"}], "+",
+ RowBox[{"2", " ", "Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], "+", "C0123", "+",
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"C2123", "+",
+ RowBox[{"2", " ", "D00"}], "+",
+ RowBox[{"D3", " ", "f3"}], "+",
+ RowBox[{"2", " ", "D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "D3a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], "+",
+ RowBox[{"D0", " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"4", " ", "D00"}], "-",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D3a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6635877693294163`*^9, 3.663587813122917*^9,
+ 3.663588858389567*^9, 3.663589837867074*^9, 3.664536345575961*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{"%", "\[Equal]", "0"}], ",", "D00"}], "]"}]], "Input",
+ CellChangeTimes->{{3.663587789185391*^9, 3.663587805440896*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{"D00", "\[Rule]",
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"(",
+ RowBox[{"C0123", "-", "C1023", "+",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"D3", " ", "f3"}], "+",
+ RowBox[{"Da", " ", "f1"}]}], ")"}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.663587796448855*^9, 3.66358781470389*^9},
+ 3.663588865975903*^9, 3.6635898389001017`*^9, 3.6645363465002937`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6635888732423077`*^9, 3.6635888811493483`*^9}}],
+
+Cell["{{D00 -> (C0123 - C1023 + Da*f1 + D3*f3 + 2*D0*m0^2)/4}}", "Output",
+ CellChangeTimes->{3.6635888817742167`*^9, 3.66358985143202*^9,
+ 3.664536347380527*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D00rule", " ", "=", " ",
+ RowBox[{"{",
+ RowBox[{"D00", "\[Rule]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"C0123", "-", "C1023", "+",
+ RowBox[{"Da", "*", "f1"}], "+",
+ RowBox[{"D3", "*", "f3"}], "+",
+ RowBox[{"2", "*", "D0", "*",
+ RowBox[{"m0", "^", "2"}]}]}], ")"}], "/", "4"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.663588900670724*^9, 3.663588904102283*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"D00", "\[Rule]",
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"(",
+ RowBox[{"C0123", "-", "C1023", "+",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"]}], "+",
+ RowBox[{"D3", " ", "f3"}], "+",
+ RowBox[{"Da", " ", "f1"}]}], ")"}]}]}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.663588904865521*^9, 3.663589862281287*^9,
+ 3.664536348424779*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"I2", "'"}], " ", "=", " ",
+ RowBox[{"I2", "/.", "D00rule"}]}]], "Input",
+ CellChangeTimes->{{3.663588948332643*^9, 3.663588959320904*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "+", "C1023", "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"D3", " ", "f3"}], "-",
+ RowBox[{"Da", " ", "f1"}]}], ")"}]}], "-", "C2123", "-",
+ RowBox[{"D3", " ", "f3"}], "-",
+ RowBox[{"2", " ", "D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D3a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663589010734478*^9, 3.66358986646954*^9,
+ 3.6645363509430943`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"I3", "'"}], " ", "=", " ",
+ RowBox[{"I3", "/.", "D00rule"}]}]], "Input",
+ CellChangeTimes->{{3.663588991060659*^9, 3.663588994856902*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"C0123", "+", "C1012", "+", "C2012", "+", "C2123", "-",
+ RowBox[{"2", " ", "D3a", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"Da", " ", "f3"}], "-",
+ RowBox[{"2", " ", "Daa", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663589012113016*^9, 3.663589868772702*^9,
+ 3.664536351715321*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"I4", "'"}], " ", "=", " ",
+ RowBox[{"I4", "/.", "D00rule"}]}]], "Input",
+ CellChangeTimes->{{3.663588996940692*^9, 3.663588998580571*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "+", "C1023", "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"D3", " ", "f3"}], "-",
+ RowBox[{"Da", " ", "f1"}]}], ")"}]}], "+", "C0123", "+", "C1023", "+",
+ "C2123", "-",
+ RowBox[{"2", " ", "D3a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"Da", " ", "f1"}], "-",
+ RowBox[{"2", " ", "Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6635890128078613`*^9, 3.663589869990612*^9,
+ 3.664536352427579*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"I5", "'"}], " ", "=", " ",
+ RowBox[{"I5", "/.", "D00rule"}]}]], "Input",
+ CellChangeTimes->{{3.6635890015006933`*^9, 3.663589002940729*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"C2023", "-", "C2123", "-",
+ RowBox[{"D3", " ", "f1"}], "-",
+ RowBox[{"2", " ", "D33", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "D3a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.663588959952345*^9, {3.6635890037050257`*^9, 3.663589015156692*^9},
+ 3.663589870941337*^9, 3.664536353148004*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"I2", "'"}], " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{
+ RowBox[{"I5", "'"}], " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"D33", ",", "D3a"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.6635890498382177`*^9, 3.663589088132422*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"D33", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["C2023", "2"], "-",
+ FractionBox["C2123", "2"], "-",
+ FractionBox[
+ RowBox[{"D3", " ", "f1"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "+", "C1023", "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"D3", " ", "f3"}], "-",
+ RowBox[{"Da", " ", "f1"}]}], ")"}]}], "-",
+ FractionBox["C2123", "2"], "-",
+ FractionBox[
+ RowBox[{"D3", " ", "f3"}], "2"]}], ")"}]}]}],
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]]}]}], ",",
+ RowBox[{"D3a", "\[Rule]",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], "+",
+ RowBox[{"C1023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "D3", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "D3", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"Da", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}],
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.663589076227498*^9, 3.663589089020451*^9},
+ 3.663589873029562*^9, 3.664536356011034*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.663589122101795*^9, 3.663589127387617*^9}}],
+
+Cell["\<\
+{{D33 -> -((-((-C2123/2 - (D3*f3)/2 + (-C0123 + C1023 - Da*f1 - D3*f3 - \
+2*D0*m0^2)/4)*Pair[Momentum[p], Momentum[p]]) +
+ (C2023/2 - C2123/2 - (D3*f1)/2)*Pair[Momentum[p], \
+Momentum[p3]])/(-Pair[Momentum[p], Momentum[p3]]^2 +
+ Pair[Momentum[p], Momentum[p]]*Pair[Momentum[p3], Momentum[p3]])),
+ D3a -> (-(C0123*Pair[Momentum[p], Momentum[p3]]) + C1023*Pair[Momentum[p], \
+Momentum[p3]] - 2*C2123*Pair[Momentum[p], Momentum[p3]] -
+ Da*f1*Pair[Momentum[p], Momentum[p3]] - 3*D3*f3*Pair[Momentum[p], \
+Momentum[p3]] - 2*D0*m0^2*Pair[Momentum[p], Momentum[p3]] -
+ 2*C2023*Pair[Momentum[p3], Momentum[p3]] + 2*C2123*Pair[Momentum[p3], \
+Momentum[p3]] + 2*D3*f1*Pair[Momentum[p3], Momentum[p3]])/
+ (4*(Pair[Momentum[p], Momentum[p3]]^2 - Pair[Momentum[p], \
+Momentum[p]]*Pair[Momentum[p3], Momentum[p3]]))}}\
+\>", "Output",
+ CellChangeTimes->{3.6635891280819263`*^9, 3.663589874477065*^9,
+ 3.664536357525567*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I6", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "C2123"}], "/", "2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D3", "*", "f3"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "+", "C1023", "-",
+ RowBox[{"Da", "*", "f1"}], "-",
+ RowBox[{"D3", "*", "f3"}], "-",
+ RowBox[{"2", "*", "D0", "*",
+ RowBox[{"m0", "^", "2"}]}]}], ")"}], "/", "4"}]}], ")"}], "*",
+
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C2023", "/", "2"}], "-",
+ RowBox[{"C2123", "/", "2"}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D3", "*", "f1"}], ")"}], "/", "2"}]}], ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}],
+ ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.663589134723053*^9, 3.663589166551219*^9}, {
+ 3.66358988927269*^9, 3.6635898947377243`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "4"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "+", "C1023", "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"D3", " ", "f3"}], "-",
+ RowBox[{"Da", " ", "f1"}]}], ")"}]}], "-",
+ FractionBox["C2123", "2"], "-",
+ FractionBox[
+ RowBox[{"D3", " ", "f3"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["C2023", "2"], "-",
+ FractionBox["C2123", "2"], "-",
+ FractionBox[
+ RowBox[{"D3", " ", "f1"}], "2"]}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.66358989590317*^9, 3.664536358613682*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I7", " ", "=", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"C0123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], ")"}]}], "+",
+ RowBox[{"C1023", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"Da", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "D3", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "D0", "*",
+ RowBox[{"m0", "^", "2"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C2023", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"2", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"2", "*", "D3", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.6635892067940063`*^9, 3.663589231730843*^9},
+ 3.663589922983576*^9}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], "+",
+ RowBox[{"C1023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "D3", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "D3", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"Da", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663589232301515*^9, 3.6635899246669693`*^9,
+ 3.664536359365975*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"I7", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}], ",",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "}"}]}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.663671669093171*^9, 3.663671703373225*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "+", "C1023", "-",
+ RowBox[{"2", " ", "C2123"}], "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"]}], "-",
+ RowBox[{"3", " ", "D3", " ", "f3"}], "-",
+ RowBox[{"Da", " ", "f1"}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ", "C2023"}]}], "+",
+ RowBox[{"2", " ", "C2123"}], "+",
+ RowBox[{"2", " ", "D3", " ", "f1"}]}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.66367170477153*^9, 3.6645363614552813`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"I3", "'"}], " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{
+ RowBox[{"I4", "'"}], " ", "\[Equal]", " ", "0"}]}], " ", ",",
+ RowBox[{"{",
+ RowBox[{"Daa", ",", "D3a"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.6636719324733543`*^9, 3.66367197389872*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Daa", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"2", " ", "C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], "+",
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C1012", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C1023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C2012", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"D3", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "Da", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "Da", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}],
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]]}]}], ",",
+ RowBox[{"D3a", "\[Rule]",
+ FractionBox[
+ RowBox[{
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C1012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C1023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"D3", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "Da", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "Da", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}],
+ RowBox[{"4", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6636719755401287`*^9, 3.664536363148613*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.663671980186534*^9, 3.6636719882495527`*^9}}],
+
+Cell["\<\
+{{Daa -> -(-2*C0123*Pair[Momentum[p], Momentum[p3]] - \
+2*C1012*Pair[Momentum[p], Momentum[p3]] - 2*C2012*Pair[Momentum[p], \
+Momentum[p3]] -
+ 2*C2123*Pair[Momentum[p], Momentum[p3]] + 2*Da*f3*Pair[Momentum[p], \
+Momentum[p3]] + C0123*Pair[Momentum[p3], Momentum[p3]] +
+ 3*C1023*Pair[Momentum[p3], Momentum[p3]] + 2*C2123*Pair[Momentum[p3], \
+Momentum[p3]] - 3*Da*f1*Pair[Momentum[p3], Momentum[p3]] -
+ D3*f3*Pair[Momentum[p3], Momentum[p3]] - 2*D0*m0^2*Pair[Momentum[p3], \
+Momentum[p3]])/
+ (4*(Pair[Momentum[p], Momentum[p3]]^2 - Pair[Momentum[p], \
+Momentum[p]]*Pair[Momentum[p3], Momentum[p3]])),
+ D3a -> (-2*C0123*Pair[Momentum[p], Momentum[p]] - 2*C1012*Pair[Momentum[p], \
+Momentum[p]] - 2*C2012*Pair[Momentum[p], Momentum[p]] -
+ 2*C2123*Pair[Momentum[p], Momentum[p]] + 2*Da*f3*Pair[Momentum[p], \
+Momentum[p]] + C0123*Pair[Momentum[p], Momentum[p3]] + \
+3*C1023*Pair[Momentum[p], Momentum[p3]] +
+ 2*C2123*Pair[Momentum[p], Momentum[p3]] - 3*Da*f1*Pair[Momentum[p], \
+Momentum[p3]] - D3*f3*Pair[Momentum[p], Momentum[p3]] -
+ 2*D0*m0^2*Pair[Momentum[p], Momentum[p3]])/(4*(Pair[Momentum[p], \
+Momentum[p3]]^2 - Pair[Momentum[p], Momentum[p]]*Pair[Momentum[p3], \
+Momentum[p3]]))}}\
+\>", "Output",
+ CellChangeTimes->{3.6636719890154467`*^9, 3.6645363649029493`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I8", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], "*", "C0123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C1012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C2012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"2", "*", "Da", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"C0123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"3", "*", "C1023", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"2", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "Da", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"D3", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "D0", "*",
+ RowBox[{"m0", "^", "2"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}]}]}]], "Input",\
+
+ CellChangeTimes->{{3.6636719943204393`*^9, 3.6636720114096823`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"2", " ", "C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C1012", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C1023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C2012", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"D3", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "Da", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "Da", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.66367201276617*^9, 3.6645363659209547`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I9", " ", "=", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], "*", "C0123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C1012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C2012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "+",
+ RowBox[{"2", "*", "Da", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "+",
+ RowBox[{"C0123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"3", "*", "C1023", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"2", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "Da", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"D3", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "D0", "*",
+ RowBox[{"m0", "^", "2"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.663672040015883*^9, 3.663672048363456*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C1012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C1023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"D3", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "Da", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "Da", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.663672050227023*^9, 3.66453636675878*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I6", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"I8", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"D3", ",", "Da"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.663672060963365*^9, 3.663672077409606*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"D3", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "4"]}], "+",
+ FractionBox[
+ RowBox[{"C1023", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "4"], "-",
+ FractionBox[
+ RowBox[{"C2023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "+",
+ FractionBox[
+ RowBox[{"C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "-",
+ FractionBox[
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "2"], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "4"], " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C1012", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C1023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C2012", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]}],
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["3", "2"], " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], "+",
+ RowBox[{"2", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ FractionBox["3", "2"], " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}]]}]}], ",",
+ RowBox[{"Da", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "C0123", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"C0123", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C0123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C0123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C1012", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C1012", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C1023", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"4", " ", "C1023", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C2012", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C2012", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C2023", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C2123", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"4", " ", "C2123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C2123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"C2123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "D0", " ", "f1", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "D0", " ", "f3", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], ")"}]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.663672079003063*^9, 3.663672131735175*^9, 3.663672344882409*^9, {
+ 3.663672590662591*^9, 3.6636726028215103`*^9}, 3.664536368062044*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FortranForm", "[", "%", "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], "\[Rule]", "p10p10pat"}],
+ ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p1p3pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p30p30pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"m0", "^", "2"}], "\[Rule]", "m0m0"}], ",", " ",
+ RowBox[{"D0", " ", "\[Rule]", " ", "xd0"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.663672346499999*^9, 3.663672462399262*^9}, {
+ 3.66367258011397*^9, 3.663672598950823*^9}}],
+
+Cell["\<\
+ List(List(Rule(D3,-((-((-2*f3*p1p3pat + \
+3*f1*p30p30pat)*(-(C0123*p10p10pat)/4. + (C1023*p10p10pat)/4. - \
+(C2123*p10p10pat)/2. - (C2023*p1p3pat)/2. +
+ - (C2123*p1p3pat)/2. - (m0m0*p10p10pat*xd0)/2.)) -
+ - (f1*p10p10pat*(2*C0123*p1p3pat + 2*C1012*p1p3pat + \
+2*C2012*p1p3pat + 2*C2123*p1p3pat - C0123*p30p30pat - 3*C1023*p30p30pat - \
+2*C2123*p30p30pat +
+ - \
+2*m0m0*p30p30pat*xd0))/4.)/((-3*f3**2*p10p10pat*p1p3pat)/2. + \
+f1*f3*p1p3pat**2 + 2*f1*f3*p10p10pat*p30p30pat - \
+(3*f1**2*p1p3pat*p30p30pat)/2.))),
+ - Rule(Da,-((-3*C0123*f3*p10p10pat*p1p3pat - \
+3*C1012*f3*p10p10pat*p1p3pat - 3*C2012*f3*p10p10pat*p1p3pat - \
+3*C2123*f3*p10p10pat*p1p3pat + 2*C0123*f1*p1p3pat**2 +
+ - 2*C1012*f1*p1p3pat**2 + 2*C2012*f1*p1p3pat**2 + \
+2*C2123*f1*p1p3pat**2 + 2*C0123*f3*p10p10pat*p30p30pat + \
+4*C1023*f3*p10p10pat*p30p30pat +
+ - 4*C2123*f3*p10p10pat*p30p30pat - C0123*f1*p1p3pat*p30p30pat - \
+3*C1023*f1*p1p3pat*p30p30pat - 2*C2123*f1*p1p3pat*p30p30pat + \
+C2023*f3*p1p3pat*p30p30pat -
+ - C2123*f3*p1p3pat*p30p30pat - 2*f3*m0m0*p10p10pat*p30p30pat*xd0 \
++ 2*f1*m0m0*p1p3pat*p30p30pat*xd0)/
+ - (3*f3**2*p10p10pat*p1p3pat - 2*f1*f3*p1p3pat**2 - \
+4*f1*f3*p10p10pat*p30p30pat + 3*f1**2*p1p3pat*p30p30pat)))))\
+\>", "Output",
+ CellChangeTimes->{
+ 3.663672464385639*^9, {3.663672591827232*^9, 3.66367260354243*^9},
+ 3.6645363689827957`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I7", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"I9", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"D3", ",", "Da"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.663672195600782*^9, 3.6636721985207233`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"D3", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{
+ RowBox[{"f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}]}]],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C1012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C1023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], "+",
+ RowBox[{"C1023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D0", " ",
+ SuperscriptBox["m0", "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}]}], ")"}]}]}]}], ",",
+ RowBox[{"Da", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "C0123", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"C0123", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C0123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C0123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C1012", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C1012", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C1023", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"4", " ", "C1023", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C2012", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C2012", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C2023", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "C2123", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"4", " ", "C2123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C2123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"C2123", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "D0", " ", "f1", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "D0", " ", "f3", " ",
+ SuperscriptBox["m0", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"4", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], ")"}]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6636721997778482`*^9, 3.663672652251048*^9,
+ 3.664536373110465*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"FortranForm", "[", "%", "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], "\[Rule]", "p10p10pat"}],
+ ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p1p3pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p30p30pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"m0", "^", "2"}], "\[Rule]", "m0m0"}], ",", " ",
+ RowBox[{"D0", " ", "\[Rule]", " ", "xd0"}]}], "}"}]}]], "Input"],
+
+Cell["\<\
+ List(List(Rule(D3,-((-(f1*p1p3pat*(-2*C0123*p10p10pat - \
+2*C1012*p10p10pat - 2*C2012*p10p10pat - 2*C2123*p10p10pat + C0123*p1p3pat + \
+3*C1023*p1p3pat +
+ - 2*C2123*p1p3pat - 2*m0m0*p1p3pat*xd0)) - (2*f3*p10p10pat \
+- 3*f1*p1p3pat)*
+ - (-(C0123*p1p3pat) + C1023*p1p3pat - 2*C2123*p1p3pat - \
+2*C2023*p30p30pat + 2*C2123*p30p30pat - 2*m0m0*p1p3pat*xd0))/
+ - (f1*f3*p1p3pat**2 - (2*f3*p10p10pat - \
+3*f1*p1p3pat)*(-3*f3*p1p3pat + 2*f1*p30p30pat)))),
+ - Rule(Da,-((-3*C0123*f3*p10p10pat*p1p3pat - \
+3*C1012*f3*p10p10pat*p1p3pat - 3*C2012*f3*p10p10pat*p1p3pat - \
+3*C2123*f3*p10p10pat*p1p3pat + 2*C0123*f3*p1p3pat**2 +
+ - 4*C1023*f3*p1p3pat**2 + 4*C2123*f3*p1p3pat**2 + \
+2*C0123*f1*p10p10pat*p30p30pat + 2*C1012*f1*p10p10pat*p30p30pat + \
+2*C2012*f1*p10p10pat*p30p30pat +
+ - 2*C2123*f1*p10p10pat*p30p30pat - C0123*f1*p1p3pat*p30p30pat - \
+3*C1023*f1*p1p3pat*p30p30pat - 2*C2123*f1*p1p3pat*p30p30pat + \
+C2023*f3*p1p3pat*p30p30pat -
+ - C2123*f3*p1p3pat*p30p30pat - 2*f3*m0m0*p1p3pat**2*xd0 + \
+2*f1*m0m0*p1p3pat*p30p30pat*xd0)/
+ - (3*f3**2*p10p10pat*p1p3pat - 4*f1*f3*p1p3pat**2 - \
+2*f1*f3*p10p10pat*p30p30pat + 3*f1**2*p1p3pat*p30p30pat)))))\
+\>", "Output",
+ CellChangeTimes->{3.6636726592825212`*^9, 3.664536374265814*^9}]
+}, Open ]]
+}, Closed]],
+
+Cell[CellGroupData[{
+
+Cell["D11, D12, D13, D22, D23 & D33 extended method", "Section",
+ CellChangeTimes->{{3.6646003945833*^9, 3.664600415407288*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Dmunurho", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}], "D111"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}], "D222"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "D333"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}]}]}], ")"}], "D001"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}]}]}], ")"}], "D002"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}]}]}], ")"}], "D003"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}]}], ")"}], "D123"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}]}], ")"}], "D112"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}]}], ")"}], "D113"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}]}], ")"}], "D122"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p1", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}]}], ")"}], "D133"}], " ", "+",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}]}], ")"}], "D223"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p2", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}]}], ")"}],
+ "D233"}]}]}]], "Input",
+ CellChangeTimes->{{3.664600434893444*^9, 3.664600759512882*^9}, {
+ 3.664600829215537*^9, 3.664600900414119*^9}, {3.664600943678782*^9,
+ 3.6646010337877617`*^9}, {3.664601103754416*^9, 3.664601152044907*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D001", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D002", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D003", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D111", " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D112", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D113", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D122", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D133", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p1",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D222", " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D223", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D233", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p2",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646007604622307`*^9, 3.6646009162209063`*^9,
+ 3.664600971753914*^9, 3.664601034344668*^9, 3.664601153060752*^9,
+ 3.664601363440263*^9, 3.664601476915576*^9, 3.664602670559417*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Dmunurho", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"p1", " ", "\[Rule]", " ", "p"}], ",", " ",
+ RowBox[{"p2", "\[Rule]", "p"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.664601165225109*^9, 3.6646011857798443`*^9}, {
+ 3.6646013583237953`*^9, 3.664601360042769*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D001", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D002", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D003", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D111", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"3", " ", "D112", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D113", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"3", " ", "D122", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D133", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D222", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D223", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D233", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{
+ 3.66460118683995*^9, 3.664601365328714*^9, 3.6646014402427483`*^9,
+ 3.664601477908732*^9, 3.6646015201882267`*^9, 3.66460168102138*^9, {
+ 3.664602127682563*^9, 3.6646021632435713`*^9}, 3.66460219865226*^9,
+ 3.6646022340051203`*^9, 3.664602671593499*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Mu]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Rho]", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}]}]}], ")"}], ",",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}], ",",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}]}], ")"}], ",", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}]}], ")"}]}], " ", "}"}]}],
+ "]"}]], "Input",
+ CellChangeTimes->{{3.66460198694285*^9, 3.6646020133040333`*^9}, {
+ 3.6646022539621973`*^9, 3.664602369460236*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D001", "+", "D002"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D003", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"D111", "+",
+ RowBox[{"3", " ", "D112"}], "+",
+ RowBox[{"3", " ", "D122"}], "+", "D222"}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D113", "+", "D223"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D133", "+", "D233"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664602371101049*^9, 3.664602672352879*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D001", " ", "+", " ", "D002"}], ")"}], "\[Rule]", " ",
+ "D00a"}], ",",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D133", " ", "+", " ", "D233"}], ")"}], " ", "\[Rule]", " ",
+ "Da33"}], ",", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D111", " ", "+", " ",
+ RowBox[{"3", "D112"}], " ", "+", " ",
+ RowBox[{"3", "D122"}], " ", "+", " ", "D222"}], ")"}], " ", "\[Rule]",
+ " ", "Daaa"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.664602391663329*^9, 3.664602404417639*^9}, {
+ 3.664602500647046*^9, 3.664602501414372*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D003", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D00a", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D113", "+", "D223"}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664602405228778*^9, 3.6646026762204247`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6646024581618423`*^9, 3.6646024622475033`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D003", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"D113", "+",
+ RowBox[{"2", " ", "D123"}], "+", "D223"}], ")"}]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"D003", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{"D003", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D00a", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"D113", "+",
+ RowBox[{"2", " ", "D123"}], "+", "D223"}], ")"}]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"D113", "+",
+ RowBox[{"2", " ", "D123"}], "+", "D223"}], ")"}]}], "+",
+ RowBox[{"Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{"D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664602462902285*^9, 3.664602677406857*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"%", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D113", " ", "+", " ",
+ RowBox[{"2", "D123"}], " ", "+", " ", "D223"}], ")"}], " ", "\[Rule]",
+ " ", "Daa3"}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.664602485976227*^9, 3.6646024896466103`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D003", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"D003", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{"D003", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D00a", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}], "+",
+ RowBox[{"D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{"D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664602490809025*^9, 3.664602678502409*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Collect", "[",
+ RowBox[{"%", ",",
+ RowBox[{"{",
+ RowBox[{
+ "D00a", ",", " ", "D003", ",", " ", "Da33", ",", " ", "Daa3", ",", " ",
+ "D333", ",", " ", "Daaa"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.6646025110624113`*^9, 3.664602553134213*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D003", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D00a", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daa3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.6646025446006517`*^9, 3.664602554370365*^9},
+ 3.6646026794382668`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Dmunurhoalt", " ", "=", " ", "%"}]], "Input",
+ CellChangeTimes->{{3.664602567898179*^9, 3.664602571101202*^9}, {
+ 3.664602663597166*^9, 3.6646026639492083`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D003", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D00a", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Mu]", "\[Nu]"}]]}]}], ")"}]}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daa3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Mu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.66460257189332*^9, 3.664602681027824*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Crho123", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "C2123"}], " ", "-",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "C2123"}], " ", "-",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "C0123"}]}]}]], "Input",
+ CellChangeTimes->{{3.664602775727521*^9, 3.664602849988174*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], "-",
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664602858868555*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Drho", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "Da"}], " ", "+",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "D3"}]}]}]], "Input",
+ CellChangeTimes->{{3.664602860341936*^9, 3.66460289893191*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664602903990345*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Cnurho023", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "C11023"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "C22023"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "C00023"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}]}], ")"}],
+ "C12023"}]}]}]], "Input",
+ CellChangeTimes->{{3.66460293715588*^9, 3.664602941634892*^9}, {
+ 3.664602973082766*^9, 3.664603094243887*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"C00023", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"C11023", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C12023", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"C22023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646030989904947`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Dnurhoalt", " ", "=", " ",
+ RowBox[{"Dmunualt", "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\[Mu]", "\[Rule]", "\[Nu]"}], ",", " ",
+ RowBox[{"\[Nu]", "\[Rule]", " ", "\[Rho]"}]}], "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.6646031795309362`*^9, 3.6646031831454773`*^9}, {
+ 3.6646032287447*^9, 3.664603260330572*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664603261410707*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Cnurho123", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "C00123"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}]}], ")"}], "C22123"}], " ", "+",
+ " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "C0123"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2",
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}]}], " ", "-", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}]}]}], ")"}],
+ "C2123"}]}]}]], "Input",
+ CellChangeTimes->{{3.664603294498855*^9, 3.664603330049066*^9}, {
+ 3.6646034072178802`*^9, 3.6646035880551767`*^9}, {3.664603618271306*^9,
+ 3.664603620201898*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"C00123", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C2123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"C22123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664603522439028*^9, 3.664603622125222*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Cnurho012", " ", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "C00012"}], " ", "+", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}],
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}],
+ RowBox[{"(",
+ RowBox[{"C11012", " ", "+", " ",
+ RowBox[{"2", "C12012"}], " ", "+", " ", "C22012"}],
+ ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.6646036716053963`*^9, 3.664603723439055*^9}, {
+ 3.664603766294248*^9, 3.664603781174184*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"C00012", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"C11012", "+",
+ RowBox[{"2", " ", "C12012"}], "+", "C22012"}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646037828822412`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T1", " ", "=", " ",
+ RowBox[{"Crho123", " ", "+", " ",
+ RowBox[{"m0m0", " ", "Drho"}]}]}]], "Input",
+ CellChangeTimes->{{3.6646038009117928`*^9, 3.664603816905138*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], "-",
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"m0m0", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664603818547063*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T2", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{"Cnurho023", " ", "-", " ", "Cnurho123", " ", "-", " ",
+ RowBox[{"f1", " ", "Dnurhoalt"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.664603834927189*^9, 3.6646038946240873`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C00023", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "-",
+ RowBox[{"C00123", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "-",
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C11023", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"C12023", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "-",
+ RowBox[{"C2123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"C22023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{"C22123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "-",
+ RowBox[{"f1", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664603904672532*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T3", " ", "=", " ",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{"Cnurho012", " ", "-", " ", "Cnurho123", " ", "-", " ",
+ RowBox[{"f3", " ", "Dnurhoalt"}]}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.664603908733406*^9, 3.664603958044222*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C00012", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "-",
+ RowBox[{"C00123", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "-",
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{"(",
+ RowBox[{"C11012", "+",
+ RowBox[{"2", " ", "C12012"}], "+", "C22012"}], ")"}]}], "-",
+ RowBox[{"C2123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "-",
+ RowBox[{"C22123", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "-",
+ RowBox[{"f3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"D00", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"D33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D3a", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}], "+",
+ RowBox[{"Daa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], ")"}]}]}], ")"}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664603961518024*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T1contract", " ", "=", " ",
+ RowBox[{"Contract", "[",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], ".", "Dmunurhoalt"}],
+ "]"}]}]], "Input",
+ CellChangeTimes->{{3.664604066433158*^9, 3.664604108615905*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"6", " ", "D003", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"6", " ", "D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ", "Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"2", " ", "Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664604109756864*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T2contract", " ", "=", " ",
+ RowBox[{"Contract", "[",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Mu]"}], "]"}], ".", "Dmunurhoalt"}],
+ "]"}]}]], "Input",
+ CellChangeTimes->{{3.664604131536573*^9, 3.664604163382606*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D003", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"D003", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D003", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"2", " ", "D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664604156874009*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"T3contract", " ", "=", " ",
+ RowBox[{"Contract", "[",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Mu]"}], "]"}], ".", "Dmunurhoalt"}],
+ "]"}]}]], "Input",
+ CellChangeTimes->{{3.664604169118209*^9, 3.664604172246131*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"D003", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]]}], "+",
+ RowBox[{"2", " ", "D003", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D00a", " ",
+ SuperscriptBox["g",
+ RowBox[{"\[Nu]", "\[Rho]"}]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Nu]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm],
+ FormBox[
+ FormBox["\[Rho]",
+ TraditionalForm],
+ TraditionalForm]], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664604173007702*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I11", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T1contract", " ", "-", "T1"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.6646051473956842`*^9, 3.6646051492002068`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-", "C2123"}], "+",
+ RowBox[{"6", " ", "D003"}], "-",
+ RowBox[{"D3", " ", "m0m0"}], "+",
+ RowBox[{"D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "Da33", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664605117114971*^9, 3.664605155280703*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I12", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T1contract", " ", "-", "T1"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664605123344602*^9, 3.66460515270446*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"C0123", "+", "C2123", "+",
+ RowBox[{"6", " ", "D00a"}], "-",
+ RowBox[{"Da", " ", "m0m0"}], "+",
+ RowBox[{"Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "Daa3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.664605131499578*^9, 3.664605156168646*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I21", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.6646055306894093`*^9, 3.664605537046564*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"C0123", "-", "C11023", "+",
+ RowBox[{"2", " ", "C2123"}], "+", "C22123", "+",
+ RowBox[{"4", " ", "D00a"}], "+",
+ RowBox[{"Daa", " ", "f1"}], "+",
+ RowBox[{"2", " ", "Daa3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "Daaa", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646055499357443`*^9, 3.6646056417157784`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I22", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664605587248398*^9, 3.6646055990535192`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C22023"}], "+", "C22123", "+",
+ RowBox[{"D33", " ", "f1"}], "+",
+ RowBox[{"2", " ", "D333", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "Da33", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664605599815134*^9, 3.664605642414765*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I23", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664605603678031*^9, 3.664605616449835*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "-", "C2123", "-", "C22123", "+",
+ RowBox[{"2", " ", "D003"}], "+",
+ RowBox[{"D3a", " ", "f1"}], "+",
+ RowBox[{"2", " ", "Da33", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.664605621197619*^9, 3.664605643040745*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I24", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664605624821247*^9, 3.6646056388060093`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "-", "C2123", "-", "C22123", "+",
+ RowBox[{"2", " ", "D003"}], "+",
+ RowBox[{"D3a", " ", "f1"}], "+",
+ RowBox[{"2", " ", "Da33", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "Daa3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{{3.6646056302719507`*^9, 3.664605643771048*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I25", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T2contract", " ", "-", "T2"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664605648073237*^9, 3.664605655973812*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C00023"}], "+", "C00123", "+",
+ RowBox[{"D00", " ", "f1"}], "+",
+ RowBox[{"2", " ", "D003", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "D00a", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.66460565795642*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I31", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664605684737039*^9, 3.664605688640046*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"C0123", "-", "C11012", "-",
+ RowBox[{"2", " ", "C12012"}], "+",
+ RowBox[{"2", " ", "C2123"}], "-", "C22012", "+", "C22123", "+",
+ RowBox[{"Daa", " ", "f3"}], "+",
+ RowBox[{"2", " ", "Daa3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "Daaa", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664605695501734*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I32", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664605706119835*^9, 3.664605715943136*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{"C22123", "+",
+ RowBox[{"4", " ", "D003"}], "+",
+ RowBox[{"D33", " ", "f3"}], "+",
+ RowBox[{"2", " ", "D333", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "Da33", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646057187492447`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I33", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664605721559766*^9, 3.664605727799157*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C2123"}], "-", "C22123", "+",
+ RowBox[{"2", " ", "D00a"}], "+",
+ RowBox[{"D3a", " ", "f3"}], "+",
+ RowBox[{"2", " ", "Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "Daa3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646057295843687`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I34", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "1"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.664605733312049*^9, 3.664605739007588*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C2123"}], "-", "C22123", "+",
+ RowBox[{"2", " ", "D00a"}], "+",
+ RowBox[{"D3a", " ", "f3"}], "+",
+ RowBox[{"2", " ", "Da33", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "Daa3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664605741164237*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"I35", " ", "=", " ",
+ RowBox[{
+ RowBox[{"Simplify", "[",
+ RowBox[{"T3contract", " ", "-", "T3"}], "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Rho]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"FourVector", "[",
+ RowBox[{"p3", ",", "\[Nu]"}], "]"}], "\[Rule]", "0"}], ",", " ",
+ RowBox[{
+ RowBox[{"MetricTensor", "[",
+ RowBox[{"\[Nu]", ",", "\[Rho]"}], "]"}], "\[Rule]", "1"}]}],
+ "}"}]}]}]], "Input",
+ CellChangeTimes->{{3.6646057449672813`*^9, 3.664605751102838*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C00012"}], "+", "C00123", "+",
+ RowBox[{"D00", " ", "f3"}], "+",
+ RowBox[{"2", " ", "D003", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "D00a", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646057518438663`*^9}]
+}, Open ]],
+
+Cell["\<\
+=> Die Auswertung ab hier ist folglich analog zum C_munurho Fall!\
+\>", "Text",
+ CellChangeTimes->{{3.664606186233482*^9, 3.6646062069935827`*^9}}],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I11", " ", "-", " ", "I23", " ", "-", " ", "I32"}], " ",
+ "\[Equal]", " ", "0"}], ",", " ", "D003"}], "]"}]], "Input",
+ CellChangeTimes->{{3.6646064857143717`*^9, 3.6646064876248627`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{"D003", "\[Rule]",
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "+", "C2123", "+",
+ RowBox[{"2", " ", "D3", " ", "m0m0"}], "+",
+ RowBox[{"D33", " ", "f3"}], "+",
+ RowBox[{"D3a", " ", "f1"}]}], ")"}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664606497475876*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6646065000316477`*^9, 3.664606506416436*^9}}],
+
+Cell["\<\
+{{D003 -> (-C12023 + C2123 + D3a*f1 + D33*f3 + 2*D3*m0m0)/6}}\
+\>", "Output",
+ CellChangeTimes->{3.664606507125834*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D003", " ", "=", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "+", "C2123", "+",
+ RowBox[{"D3a", "*", "f1"}], "+",
+ RowBox[{"D33", "*", "f3"}], "+",
+ RowBox[{"2", "*", "D3", "*", "m0m0"}]}], ")"}], "/", "6"}]}]], "Input",
+ CellChangeTimes->{{3.664606513166119*^9, 3.6646065307709703`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "+", "C2123", "+",
+ RowBox[{"2", " ", "D3", " ", "m0m0"}], "+",
+ RowBox[{"D33", " ", "f3"}], "+",
+ RowBox[{"D3a", " ", "f1"}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.66460653169459*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I12", " ", "-", " ", "I21", " ", "-", " ", "I33"}], " ",
+ "\[Equal]", " ", "0"}], ",", " ", "D00a"}], "]"}]], "Input",
+ CellChangeTimes->{{3.664606551280737*^9, 3.664606571080179*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{"D00a", "\[Rule]",
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C11023", "-", "C2123", "+",
+ RowBox[{"D3a", " ", "f3"}], "+",
+ RowBox[{"2", " ", "Da", " ", "m0m0"}], "+",
+ RowBox[{"Daa", " ", "f1"}]}], ")"}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664606573881324*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6646065757600307`*^9, 3.664606580423895*^9}}],
+
+Cell["\<\
+{{D00a -> (-C0123 - C11023 - C2123 + Daa*f1 + D3a*f3 + 2*Da*m0m0)/6}}\
+\>", "Output",
+ CellChangeTimes->{3.66460658250922*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D00a", " ", "=", " ",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C11023", "-", "C2123", "+",
+ RowBox[{"Daa", "*", "f1"}], "+",
+ RowBox[{"D3a", "*", "f3"}], "+",
+ RowBox[{"2", "*", "Da", "*", "m0m0"}]}], ")"}], "/", "6"}]}]], "Input",
+ CellChangeTimes->{{3.664606598147461*^9, 3.664606600024971*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C11023", "-", "C2123", "+",
+ RowBox[{"D3a", " ", "f3"}], "+",
+ RowBox[{"2", " ", "Da", " ", "m0m0"}], "+",
+ RowBox[{"Daa", " ", "f1"}]}], ")"}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664606600874894*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I21", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"I31", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"Daaa", ",", " ", "Daa3"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.664606972981915*^9, 3.6646069799415817`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Daaa", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "3"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C11023", "-", "C2123", "+",
+ RowBox[{"D3a", " ", "f3"}], "+",
+ RowBox[{"2", " ", "Da", " ", "m0m0"}], "+",
+ RowBox[{"Daa", " ", "f1"}]}], ")"}]}], "+",
+ FractionBox["C0123", "2"], "-",
+ FractionBox["C11023", "2"], "+", "C2123", "+",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"Daa", " ", "f1"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["C0123", "2"], "-",
+ FractionBox["C11012", "2"], "-", "C12012", "+", "C2123", "-",
+ FractionBox["C22012", "2"], "+",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"Daa", " ", "f3"}], "2"]}], ")"}]}]}],
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]]}]}], ",",
+ RowBox[{"Daa3", "\[Rule]",
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], "+",
+ RowBox[{"3", " ", "C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C11012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"5", " ", "C11023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "C12012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"4", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D3a", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ", "Da", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"5", " ", "Daa", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "Daa", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}],
+ RowBox[{"6", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664606980888668*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6646069929487667`*^9, 3.664606997021161*^9}}],
+
+Cell["\<\
+{{Daaa -> -((-((C0123/2 - C11012/2 - C12012 + C2123 - C22012/2 + C22123/2 + \
+(Daa*f3)/2)*Pair[Momentum[p], Momentum[p3]]) +
+ (C0123/2 - C11023/2 + C2123 + C22123/2 + (Daa*f1)/2 + (-C0123 - C11023 \
+- C2123 + Daa*f1 + D3a*f3 + 2*Da*m0m0)/3)*Pair[Momentum[p3], Momentum[p3]])/
+ (-Pair[Momentum[p], Momentum[p3]]^2 + Pair[Momentum[p], \
+Momentum[p]]*Pair[Momentum[p3], Momentum[p3]])),
+ Daa3 -> (3*C0123*Pair[Momentum[p], Momentum[p]] - \
+3*C11012*Pair[Momentum[p], Momentum[p]] - 6*C12012*Pair[Momentum[p], \
+Momentum[p]] +
+ 6*C2123*Pair[Momentum[p], Momentum[p]] - 3*C22012*Pair[Momentum[p], \
+Momentum[p]] + 3*C22123*Pair[Momentum[p], Momentum[p]] +
+ 3*Daa*f3*Pair[Momentum[p], Momentum[p]] - C0123*Pair[Momentum[p], \
+Momentum[p3]] + 5*C11023*Pair[Momentum[p], Momentum[p3]] -
+ 4*C2123*Pair[Momentum[p], Momentum[p3]] - 3*C22123*Pair[Momentum[p], \
+Momentum[p3]] - 5*Daa*f1*Pair[Momentum[p], Momentum[p3]] -
+ 2*D3a*f3*Pair[Momentum[p], Momentum[p3]] - 4*Da*m0m0*Pair[Momentum[p], \
+Momentum[p3]])/
+ (6*(Pair[Momentum[p], Momentum[p3]]^2 - Pair[Momentum[p], \
+Momentum[p]]*Pair[Momentum[p3], Momentum[p3]]))}}\
+\>", "Output",
+ CellChangeTimes->{3.664606997855597*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W1", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C0123", "/", "2"}], "-",
+ RowBox[{"C11012", "/", "2"}], "-", "C12012", "+", "C2123", "-",
+ RowBox[{"C22012", "/", "2"}], "+",
+ RowBox[{"C22123", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"Daa", "*", "f3"}], ")"}], "/", "2"}]}], ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], ")"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C0123", "/", "2"}], "-",
+ RowBox[{"C11023", "/", "2"}], "+", "C2123", "+",
+ RowBox[{"C22123", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"Daa", "*", "f1"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C11023", "-", "C2123", "+",
+ RowBox[{"Daa", "*", "f1"}], "+",
+ RowBox[{"D3a", "*", "f3"}], "+",
+ RowBox[{"2", "*", "Da", "*", "m0m0"}]}], ")"}], "/", "3"}]}],
+ ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}],
+ ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.664607042985653*^9, 3.664607049525509*^9}, {
+ 3.664607132559915*^9, 3.6646071338810577`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["C0123", "2"], "-",
+ FractionBox["C11012", "2"], "-", "C12012", "+", "C2123", "-",
+ FractionBox["C22012", "2"], "+",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"Daa", " ", "f3"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "3"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C11023", "-", "C2123", "+",
+ RowBox[{"D3a", " ", "f3"}], "+",
+ RowBox[{"2", " ", "Da", " ", "m0m0"}], "+",
+ RowBox[{"Daa", " ", "f1"}]}], ")"}]}], "+",
+ FractionBox["C0123", "2"], "-",
+ FractionBox["C11023", "2"], "+", "C2123", "+",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"Daa", " ", "f1"}], "2"]}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646071353474283`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W2", " ", "=", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", "*", "C0123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "C11012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"6", "*", "C12012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "+",
+ RowBox[{"6", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "C22012", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "+",
+ RowBox[{"3", "*", "C22123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "+",
+ RowBox[{"3", "*", "Daa", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"C0123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"5", "*", "C11023", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"4", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "C22123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"5", "*", "Daa", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "D3a", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"4", "*", "Da", "*", "m0m0", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.664607157576646*^9, 3.664607169300919*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], "+",
+ RowBox[{"3", " ", "C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C11012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"5", " ", "C11023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "C12012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"4", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D3a", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ", "Da", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"5", " ", "Daa", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "Daa", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664607172444887*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I22", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"I32", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"D333", ",", " ", "Da33"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.664607205348311*^9, 3.664607225821106*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"D333", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "3"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "+", "C2123", "+",
+ RowBox[{"2", " ", "D3", " ", "m0m0"}], "+",
+ RowBox[{"D33", " ", "f3"}], "+",
+ RowBox[{"D3a", " ", "f1"}]}], ")"}]}], "+",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"D33", " ", "f3"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["C22023", "2"]}], "+",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"D33", " ", "f1"}], "2"]}], ")"}]}]}],
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]]}]}], ",",
+ RowBox[{"Da33", "\[Rule]",
+ FractionBox[
+ RowBox[{
+ RowBox[{"2", " ", "C12023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C22023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"4", " ", "D3", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "D33", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ", "D33", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "D3a", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}],
+ RowBox[{"6", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.664607220700045*^9, 3.664607226802109*^9}}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.664607236731642*^9, 3.66460724713198*^9}}],
+
+Cell["\<\
+{{D333 -> -(((C22123/2 + (D33*f3)/2 + (-C12023 + C2123 + D3a*f1 + D33*f3 + \
+2*D3*m0m0)/3)*Pair[Momentum[p], Momentum[p]] -
+ (-C22023/2 + C22123/2 + (D33*f1)/2)*Pair[Momentum[p], \
+Momentum[p3]])/(-Pair[Momentum[p], Momentum[p3]]^2 +
+ Pair[Momentum[p], Momentum[p]]*Pair[Momentum[p3], Momentum[p3]])),
+ Da33 -> (2*C12023*Pair[Momentum[p], Momentum[p3]] - \
+2*C2123*Pair[Momentum[p], Momentum[p3]] - 3*C22123*Pair[Momentum[p], \
+Momentum[p3]] -
+ 2*D3a*f1*Pair[Momentum[p], Momentum[p3]] - 5*D33*f3*Pair[Momentum[p], \
+Momentum[p3]] - 4*D3*m0m0*Pair[Momentum[p], Momentum[p3]] -
+ 3*C22023*Pair[Momentum[p3], Momentum[p3]] + 3*C22123*Pair[Momentum[p3], \
+Momentum[p3]] + 3*D33*f1*Pair[Momentum[p3], Momentum[p3]])/
+ (6*(Pair[Momentum[p], Momentum[p3]]^2 - Pair[Momentum[p], \
+Momentum[p]]*Pair[Momentum[p3], Momentum[p3]]))}}\
+\>", "Output",
+ CellChangeTimes->{3.664607248259186*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W3", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C22123", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D33", "*", "f3"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "+", "C2123", "+",
+ RowBox[{"D3a", "*", "f1"}], "+",
+ RowBox[{"D33", "*", "f3"}], "+",
+ RowBox[{"2", "*", "D3", "*", "m0m0"}]}], ")"}], "/", "3"}]}],
+ ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "C22023"}], "/", "2"}], "+",
+ RowBox[{"C22123", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D33", "*", "f1"}], ")"}], "/", "2"}]}], ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}],
+ ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.6646072569989653`*^9, 3.664607260136565*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox["C22023", "2"]}], "+",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"D33", " ", "f1"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "3"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "+", "C2123", "+",
+ RowBox[{"2", " ", "D3", " ", "m0m0"}], "+",
+ RowBox[{"D33", " ", "f3"}], "+",
+ RowBox[{"D3a", " ", "f1"}]}], ")"}]}], "+",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"D33", " ", "f3"}], "2"]}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664607261084585*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W4", " ", "=", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", "*", "C12023", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "C22123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "D3a", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"5", "*", "D33", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"4", "*", "D3", "*", "m0m0", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "C22023", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"3", "*", "C22123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"3", "*", "D33", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}]}]], "Input",
+ CellChangeTimes->{{3.66460727364635*^9, 3.6646072814269037`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"2", " ", "C12023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C22023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"4", " ", "D3", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "D33", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ", "D33", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "D3a", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.664607283278577*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"I23", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"I33", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"Daa3", ",", " ", "Da33"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.664607304851768*^9, 3.664607313219812*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Daa3", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C11023", "-", "C2123", "+",
+ RowBox[{"D3a", " ", "f3"}], "+",
+ RowBox[{"2", " ", "Da", " ", "m0m0"}], "+",
+ RowBox[{"Daa", " ", "f1"}]}], ")"}]}], "-",
+ FractionBox["C2123", "2"], "-",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"D3a", " ", "f3"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "+", "C2123", "+",
+ RowBox[{"2", " ", "D3", " ", "m0m0"}], "+",
+ RowBox[{"D33", " ", "f3"}], "+",
+ RowBox[{"D3a", " ", "f1"}]}], ")"}]}], "-",
+ FractionBox["C12023", "2"], "-",
+ FractionBox["C2123", "2"], "-",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"D3a", " ", "f1"}], "2"]}], ")"}]}]}],
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}]]}]}], ",",
+ RowBox[{"Da33", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"C11023", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"4", " ", "C12023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"4", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "D3", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"D33", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"4", " ", "D3a", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ", "D3a", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "Da", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"Daa", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}],
+ RowBox[{"6", " ",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], "-",
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646073239867373`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"InputForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.6646073288995733`*^9, 3.6646073319396667`*^9}}],
+
+Cell["\<\
+{{Daa3 -> -(((-C2123/2 - C22123/2 + (D3a*f3)/2 + (-C0123 - C11023 - C2123 + \
+Daa*f1 + D3a*f3 + 2*Da*m0m0)/6)*Pair[Momentum[p], Momentum[p3]] -
+ (-C12023/2 - C2123/2 - C22123/2 + (D3a*f1)/2 + (-C12023 + C2123 + \
+D3a*f1 + D33*f3 + 2*D3*m0m0)/6)*Pair[Momentum[p3], Momentum[p3]])/
+ (Pair[Momentum[p], Momentum[p3]]^2 - Pair[Momentum[p], \
+Momentum[p]]*Pair[Momentum[p3], Momentum[p3]])),
+ Da33 -> -(C0123*Pair[Momentum[p], Momentum[p]] + C11023*Pair[Momentum[p], \
+Momentum[p]] + 4*C2123*Pair[Momentum[p], Momentum[p]] +
+ 3*C22123*Pair[Momentum[p], Momentum[p]] - Daa*f1*Pair[Momentum[p], \
+Momentum[p]] - 4*D3a*f3*Pair[Momentum[p], Momentum[p]] -
+ 2*Da*m0m0*Pair[Momentum[p], Momentum[p]] - 4*C12023*Pair[Momentum[p], \
+Momentum[p3]] - 2*C2123*Pair[Momentum[p], Momentum[p3]] -
+ 3*C22123*Pair[Momentum[p], Momentum[p3]] + 4*D3a*f1*Pair[Momentum[p], \
+Momentum[p3]] + D33*f3*Pair[Momentum[p], Momentum[p3]] +
+ 2*D3*m0m0*Pair[Momentum[p], Momentum[p3]])/(6*(Pair[Momentum[p], \
+Momentum[p3]]^2 - Pair[Momentum[p], Momentum[p]]*Pair[Momentum[p3], \
+Momentum[p3]]))}}\
+\>", "Output",
+ CellChangeTimes->{3.664607332643219*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W5", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "C2123"}], "/", "2"}], "-",
+ RowBox[{"C22123", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D3a", "*", "f3"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C11023", "-", "C2123", "+",
+ RowBox[{"Daa", "*", "f1"}], "+",
+ RowBox[{"D3a", "*", "f3"}], "+",
+ RowBox[{"2", "*", "Da", "*", "m0m0"}]}], ")"}], "/", "6"}]}],
+ ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "C12023"}], "/", "2"}], "-",
+ RowBox[{"C2123", "/", "2"}], "-",
+ RowBox[{"C22123", "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"D3a", "*", "f1"}], ")"}], "/", "2"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "+", "C2123", "+",
+ RowBox[{"D3a", "*", "f1"}], "+",
+ RowBox[{"D33", "*", "f3"}], "+",
+ RowBox[{"2", "*", "D3", "*", "m0m0"}]}], ")"}], "/", "6"}]}],
+ ")"}], "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}],
+ ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.664607348463902*^9, 3.664607378694133*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C12023"}], "+", "C2123", "+",
+ RowBox[{"2", " ", "D3", " ", "m0m0"}], "+",
+ RowBox[{"D33", " ", "f3"}], "+",
+ RowBox[{"D3a", " ", "f1"}]}], ")"}]}], "-",
+ FractionBox["C12023", "2"], "-",
+ FractionBox["C2123", "2"], "-",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"D3a", " ", "f1"}], "2"]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "6"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "C0123"}], "-", "C11023", "-", "C2123", "+",
+ RowBox[{"D3a", " ", "f3"}], "+",
+ RowBox[{"2", " ", "Da", " ", "m0m0"}], "+",
+ RowBox[{"Daa", " ", "f1"}]}], ")"}]}], "-",
+ FractionBox["C2123", "2"], "-",
+ FractionBox["C22123", "2"], "+",
+ FractionBox[
+ RowBox[{"D3a", " ", "f3"}], "2"]}], ")"}]}]}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.664607379896999*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"W6", " ", "=", " ",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"C0123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "+",
+ RowBox[{"C11023", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "+",
+ RowBox[{"4", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "+",
+ RowBox[{"3", "*", "C22123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"Daa", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"4", "*", "D3a", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "Da", "*", "m0m0", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}]}], "-",
+ RowBox[{"4", "*", "C12023", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"2", "*", "C2123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "-",
+ RowBox[{"3", "*", "C22123", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"4", "*", "D3a", "*", "f1", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"D33", "*", "f3", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}], "+",
+ RowBox[{"2", "*", "D3", "*", "m0m0", "*",
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}]}]}], ")"}]}]}]], "Input",\
+
+ CellChangeTimes->{{3.664607400437248*^9, 3.664607407835964*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], "-",
+ RowBox[{"C11023", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"4", " ", "C12023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D3", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"D33", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ", "D3a", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"4", " ", "D3a", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "Da", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"Daa", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}]}], TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646074092632732`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"W1", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"W3", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"W5", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"D33", ",", "D3a", ",", " ", "Daa"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.664609559939567*^9, 3.664609622403067*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"D33", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"C12023", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "3"], "-",
+ FractionBox[
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "3"], "-",
+ FractionBox[
+ RowBox[{"C22123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "2"], "-",
+ RowBox[{
+ FractionBox["2", "3"], " ", "D3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ FractionBox[
+ RowBox[{"C22023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "+",
+ FractionBox[
+ RowBox[{"C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"]}], ")"}]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "3"], " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ FractionBox["5", "6"], " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{
+ FractionBox["5", "9"], " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "3"], " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "-",
+ FractionBox[
+ RowBox[{"5", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "6"]}], ")"}]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "6"], "+",
+ FractionBox[
+ RowBox[{"C11023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "6"], "+",
+ FractionBox[
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "3"], "+",
+ FractionBox[
+ RowBox[{"C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "-",
+ RowBox[{
+ FractionBox["1", "3"], " ", "Da", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ FractionBox[
+ RowBox[{"2", " ", "C12023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "3"], "-",
+ FractionBox[
+ RowBox[{"C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "3"], "-",
+ FractionBox[
+ RowBox[{"C22123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "2"], "+",
+ RowBox[{
+ FractionBox["1", "3"], " ", "D3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "6"], " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "-",
+ FractionBox[
+ RowBox[{"C11012", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "-",
+ RowBox[{"C12012", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ FractionBox[
+ RowBox[{"C22012", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "+",
+ FractionBox[
+ RowBox[{"C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "-",
+ FractionBox[
+ RowBox[{"C0123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "6"], "+",
+ FractionBox[
+ RowBox[{"5", " ", "C11023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "6"], "-",
+ FractionBox[
+ RowBox[{"2", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "3"], "-",
+ FractionBox[
+ RowBox[{"C22123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "2"], "-",
+ RowBox[{
+ FractionBox["2", "3"], " ", "Da", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "2"], "-",
+ FractionBox[
+ RowBox[{"5", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "6"]}], ")"}]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "3"], " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ FractionBox["5", "6"], " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{
+ FractionBox["5", "9"], " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}]}], ")"}]}], "-",
+ RowBox[{
+ FractionBox["1", "3"], " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ FractionBox["5", "36"], " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ FractionBox["1", "12"], " ",
+ SuperscriptBox["f3", "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]}], ")"}]}], ")"}]}]}],
+ ",",
+ RowBox[{"D3a", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "3"}], " ", "C0123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"3", " ", "C11012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"6", " ", "C12012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"6", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"3", " ", "C22012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"3", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"3", " ", "C11023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"12", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"6", " ", "Da", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"5", " ", "C0123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"5", " ", "C11023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"20", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"15", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"5", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ", "C11012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"10", " ", "C12012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"10", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ", "C22012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"5", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"10", " ", "Da", " ",
+ SuperscriptBox["f3", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C0123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"24", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"18", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"12", " ", "C12023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "Da", " ",
+ SuperscriptBox["f1", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "D3", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"20", " ", "C12023", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"10", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"15", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"5", " ", "C22023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"5", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"10", " ", "D3", " ",
+ SuperscriptBox["f1", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"18", " ", "C12023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"12", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"18", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"10", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"40", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"30", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "D3", " ",
+ SuperscriptBox["f3", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"10", " ", "Da", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"30", " ", "C12023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"20", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"10", " ", "D3", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"10", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "3"]}], "-",
+ RowBox[{"15", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "-",
+ RowBox[{"15", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "+",
+ RowBox[{"6", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"], " ", "f1"}], "+",
+ RowBox[{"24", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ", "f1"}], "-",
+ RowBox[{"10", " ",
+ SuperscriptBox["f3", "3"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]}], ")"}]}], ")"}]}], ")"}]}]}], ",",
+
+ RowBox[{"Daa", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"6", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"6", " ", "C11012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"12", " ", "C12012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"12", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"6", " ", "C22012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"6", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"10", " ", "C0123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"10", " ", "C11012", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"20", " ", "C12012", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"20", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"10", " ", "C22012", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"10", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C0123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C11012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"12", " ", "C12012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C22012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "C11023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "Da", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C0123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"10", " ", "C11023", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"8", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"C22023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"4", " ", "C12023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"8", " ", "Da", " ",
+ SuperscriptBox["f1", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "D3", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"5", " ", "C0123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"15", " ", "C11023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"20", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"15", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"9", " ", "C11012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"18", " ", "C12012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"18", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"9", " ", "C22012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"10", " ", "Da", " ",
+ SuperscriptBox["f3", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "C12023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"4", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"15", " ", "C11023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "D3", " ",
+ SuperscriptBox["f3", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "Da", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"10", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "3"]}], "-",
+ RowBox[{"15", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "-",
+ RowBox[{"15", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "+",
+ RowBox[{"6", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"], " ", "f1"}], "+",
+ RowBox[{"24", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ", "f1"}], "-",
+ RowBox[{"10", " ",
+ SuperscriptBox["f3", "3"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]}], ")"}]}], ")"}]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{{3.664609591529481*^9, 3.66460960360145*^9},
+ 3.664609686127881*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"InputForm", "[", "%", "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p10p10pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p30p30pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p1p3pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"m0", "^", "2"}], "\[Rule]", " ", "m0m0"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.664609687685548*^9, 3.66460973812292*^9}}],
+
+Cell["\<\
+{{D33 -> -((-(((C12023*p10p10pat)/3 - (C2123*p10p10pat)/3 - \
+(C22123*p10p10pat)/2 - (2*D3*m0m0*p10p10pat)/3 - (C22023*p1p3pat)/2 + \
+(C22123*p1p3pat)/2)*
+ ((f3^2*p1p3pat^2)/3 - (5*f1*f3*p1p3pat*p30p30pat)/6 + \
+(5*f1^2*p30p30pat^2)/9)) -
+ (f1*p10p10pat*(-(((f3*p1p3pat)/2 - \
+(5*f1*p30p30pat)/6)*((C0123*p1p3pat)/6 + (C11023*p1p3pat)/6 + \
+(2*C2123*p1p3pat)/3 + (C22123*p1p3pat)/2 - (Da*m0m0*p1p3pat)/3 -
+ (2*C12023*p30p30pat)/3 - (C2123*p30p30pat)/3 - \
+(C22123*p30p30pat)/2 + (D3*m0m0*p30p30pat)/3)) -
+ (f1*p1p3pat*((C0123*p1p3pat)/2 - (C11012*p1p3pat)/2 - C12012*p1p3pat \
++ C2123*p1p3pat - (C22012*p1p3pat)/2 + (C22123*p1p3pat)/2 - \
+(C0123*p30p30pat)/6 +
+ (5*C11023*p30p30pat)/6 - (2*C2123*p30p30pat)/3 - \
+(C22123*p30p30pat)/2 - (2*Da*m0m0*p30p30pat)/3))/6))/3)/
+ (-(((-5*f3*p10p10pat)/6 + (f1*p1p3pat)/2)*((f3^2*p1p3pat^2)/3 - \
+(5*f1*f3*p1p3pat*p30p30pat)/6 + (5*f1^2*p30p30pat^2)/9)) -
+ (f1*p10p10pat*(-(f3^2*p1p3pat*p30p30pat)/12 + \
+(5*f1*f3*p30p30pat^2)/36))/3)),
+ D3a -> -(5*C0123*f1*f3*p10p10pat*p1p3pat^2 - \
+5*C11012*f1*f3*p10p10pat*p1p3pat^2 - 10*C12012*f1*f3*p10p10pat*p1p3pat^2 + \
+10*C2123*f1*f3*p10p10pat*p1p3pat^2 -
+ 5*C22012*f1*f3*p10p10pat*p1p3pat^2 + 5*C22123*f1*f3*p10p10pat*p1p3pat^2 \
++ 5*C0123*f3^2*p10p10pat*p1p3pat^2 + 5*C11023*f3^2*p10p10pat*p1p3pat^2 +
+ 20*C2123*f3^2*p10p10pat*p1p3pat^2 + 15*C22123*f3^2*p10p10pat*p1p3pat^2 \
+- 10*Da*f3^2*m0m0*p10p10pat*p1p3pat^2 - 3*C0123*f1^2*p1p3pat^3 + \
+3*C11012*f1^2*p1p3pat^3 +
+ 6*C12012*f1^2*p1p3pat^3 - 6*C2123*f1^2*p1p3pat^3 + \
+3*C22012*f1^2*p1p3pat^3 - 3*C22123*f1^2*p1p3pat^3 - 3*C0123*f1*f3*p1p3pat^3 - \
+3*C11023*f1*f3*p1p3pat^3 -
+ 12*C2123*f1*f3*p1p3pat^3 - 9*C22123*f1*f3*p1p3pat^3 + \
+6*Da*f1*f3*m0m0*p1p3pat^3 - 10*C0123*f1*f3*p10p10pat*p1p3pat*p30p30pat -
+ 40*C2123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+30*C22123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+18*C12023*f3^2*p10p10pat*p1p3pat*p30p30pat -
+ 12*C2123*f3^2*p10p10pat*p1p3pat*p30p30pat - \
+18*C22123*f3^2*p10p10pat*p1p3pat*p30p30pat + \
+10*Da*f1*f3*m0m0*p10p10pat*p1p3pat*p30p30pat +
+ 6*D3*f3^2*m0m0*p10p10pat*p1p3pat*p30p30pat + \
+6*C0123*f1^2*p1p3pat^2*p30p30pat + 24*C2123*f1^2*p1p3pat^2*p30p30pat + \
+18*C22123*f1^2*p1p3pat^2*p30p30pat +
+ 12*C12023*f1*f3*p1p3pat^2*p30p30pat + 6*C2123*f1*f3*p1p3pat^2*p30p30pat \
++ 9*C22123*f1*f3*p1p3pat^2*p30p30pat - 3*C22023*f3^2*p1p3pat^2*p30p30pat +
+ 3*C22123*f3^2*p1p3pat^2*p30p30pat - 6*Da*f1^2*m0m0*p1p3pat^2*p30p30pat \
+- 6*D3*f1*f3*m0m0*p1p3pat^2*p30p30pat + 30*C12023*f1*f3*p10p10pat*p30p30pat^2 \
++
+ 20*C2123*f1*f3*p10p10pat*p30p30pat^2 + \
+30*C22123*f1*f3*p10p10pat*p30p30pat^2 - \
+10*D3*f1*f3*m0m0*p10p10pat*p30p30pat^2 - 20*C12023*f1^2*p1p3pat*p30p30pat^2 - \
+
+ 10*C2123*f1^2*p1p3pat*p30p30pat^2 - 15*C22123*f1^2*p1p3pat*p30p30pat^2 \
++ 5*C22023*f1*f3*p1p3pat*p30p30pat^2 - 5*C22123*f1*f3*p1p3pat*p30p30pat^2 +
+ 10*D3*f1^2*m0m0*p1p3pat*p30p30pat^2)/(2*(-10*f3^3*p10p10pat*p1p3pat^2 + \
+6*f1*f3^2*p1p3pat^3 + 24*f1*f3^2*p10p10pat*p1p3pat*p30p30pat -
+ 15*f1^2*f3*p1p3pat^2*p30p30pat - 15*f1^2*f3*p10p10pat*p30p30pat^2 + \
+10*f1^3*p1p3pat*p30p30pat^2)),
+ Daa -> -((-10*C0123*f3^2*p10p10pat*p1p3pat^2 + \
+10*C11012*f3^2*p10p10pat*p1p3pat^2 + 20*C12012*f3^2*p10p10pat*p1p3pat^2 - \
+20*C2123*f3^2*p10p10pat*p1p3pat^2 +
+ 10*C22012*f3^2*p10p10pat*p1p3pat^2 - 10*C22123*f3^2*p10p10pat*p1p3pat^2 \
++ 6*C0123*f1*f3*p1p3pat^3 - 6*C11012*f1*f3*p1p3pat^3 - \
+12*C12012*f1*f3*p1p3pat^3 +
+ 12*C2123*f1*f3*p1p3pat^3 - 6*C22012*f1*f3*p1p3pat^3 + \
+6*C22123*f1*f3*p1p3pat^3 + 9*C0123*f1*f3*p10p10pat*p1p3pat*p30p30pat -
+ 9*C11012*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+18*C12012*f1*f3*p10p10pat*p1p3pat*p30p30pat + \
+18*C2123*f1*f3*p10p10pat*p1p3pat*p30p30pat -
+ 9*C22012*f1*f3*p10p10pat*p1p3pat*p30p30pat + \
+9*C22123*f1*f3*p10p10pat*p1p3pat*p30p30pat + \
+5*C0123*f3^2*p10p10pat*p1p3pat*p30p30pat -
+ 15*C11023*f3^2*p10p10pat*p1p3pat*p30p30pat + \
+20*C2123*f3^2*p10p10pat*p1p3pat*p30p30pat + \
+15*C22123*f3^2*p10p10pat*p1p3pat*p30p30pat +
+ 10*Da*f3^2*m0m0*p10p10pat*p1p3pat*p30p30pat - \
+6*C0123*f1^2*p1p3pat^2*p30p30pat + 6*C11012*f1^2*p1p3pat^2*p30p30pat + \
+12*C12012*f1^2*p1p3pat^2*p30p30pat -
+ 12*C2123*f1^2*p1p3pat^2*p30p30pat + 6*C22012*f1^2*p1p3pat^2*p30p30pat - \
+6*C22123*f1^2*p1p3pat^2*p30p30pat - 3*C0123*f1*f3*p1p3pat^2*p30p30pat +
+ 9*C11023*f1*f3*p1p3pat^2*p30p30pat - 12*C2123*f1*f3*p1p3pat^2*p30p30pat \
+- 9*C22123*f1*f3*p1p3pat^2*p30p30pat - 6*Da*f1*f3*m0m0*p1p3pat^2*p30p30pat -
+ 3*C0123*f1*f3*p10p10pat*p30p30pat^2 + \
+15*C11023*f1*f3*p10p10pat*p30p30pat^2 - 12*C2123*f1*f3*p10p10pat*p30p30pat^2 \
+- 9*C22123*f1*f3*p10p10pat*p30p30pat^2 -
+ 6*C12023*f3^2*p10p10pat*p30p30pat^2 - \
+4*C2123*f3^2*p10p10pat*p30p30pat^2 - 6*C22123*f3^2*p10p10pat*p30p30pat^2 - \
+12*Da*f1*f3*m0m0*p10p10pat*p30p30pat^2 +
+ 2*D3*f3^2*m0m0*p10p10pat*p30p30pat^2 + 2*C0123*f1^2*p1p3pat*p30p30pat^2 \
+- 10*C11023*f1^2*p1p3pat*p30p30pat^2 + 8*C2123*f1^2*p1p3pat*p30p30pat^2 +
+ 6*C22123*f1^2*p1p3pat*p30p30pat^2 + 4*C12023*f1*f3*p1p3pat*p30p30pat^2 \
++ 2*C2123*f1*f3*p1p3pat*p30p30pat^2 + 3*C22123*f1*f3*p1p3pat*p30p30pat^2 -
+ C22023*f3^2*p1p3pat*p30p30pat^2 + C22123*f3^2*p1p3pat*p30p30pat^2 + \
+8*Da*f1^2*m0m0*p1p3pat*p30p30pat^2 - 2*D3*f1*f3*m0m0*p1p3pat*p30p30pat^2)/
+ (-10*f3^3*p10p10pat*p1p3pat^2 + 6*f1*f3^2*p1p3pat^3 + \
+24*f1*f3^2*p10p10pat*p1p3pat*p30p30pat - 15*f1^2*f3*p1p3pat^2*p30p30pat - \
+15*f1^2*f3*p10p10pat*p30p30pat^2 +
+ 10*f1^3*p1p3pat*p30p30pat^2))}}\
+\>", "Output",
+ CellChangeTimes->{3.664609741235516*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.664609755901888*^9, 3.664609760520946*^9}}],
+
+Cell["\<\
+ List(List(Rule(D33,-((-(((C12023*p10p10pat)/3. - (C2123*p10p10pat)/3. \
+- (C22123*p10p10pat)/2. - (2*D3*m0m0*p10p10pat)/3. - (C22023*p1p3pat)/2. +
+ - (C22123*p1p3pat)/2.)*((f3**2*p1p3pat**2)/3. - \
+(5*f1*f3*p1p3pat*p30p30pat)/6. + (5*f1**2*p30p30pat**2)/9.)) -
+ - (f1*p10p10pat*(-(((f3*p1p3pat)/2. - (5*f1*p30p30pat)/6.)*
+ - ((C0123*p1p3pat)/6. + (C11023*p1p3pat)/6. + \
+(2*C2123*p1p3pat)/3. + (C22123*p1p3pat)/2. - (Da*m0m0*p1p3pat)/3. - \
+(2*C12023*p30p30pat)/3. -
+ - (C2123*p30p30pat)/3. - (C22123*p30p30pat)/2. + \
+(D3*m0m0*p30p30pat)/3.)) -
+ - (f1*p1p3pat*((C0123*p1p3pat)/2. - (C11012*p1p3pat)/2. - \
+C12012*p1p3pat + C2123*p1p3pat - (C22012*p1p3pat)/2. + (C22123*p1p3pat)/2. -
+ - (C0123*p30p30pat)/6. + (5*C11023*p30p30pat)/6. - \
+(2*C2123*p30p30pat)/3. - (C22123*p30p30pat)/2. - \
+(2*Da*m0m0*p30p30pat)/3.))/6.))/3.)/
+ - (-(((-5*f3*p10p10pat)/6. + \
+(f1*p1p3pat)/2.)*((f3**2*p1p3pat**2)/3. - (5*f1*f3*p1p3pat*p30p30pat)/6. + \
+(5*f1**2*p30p30pat**2)/9.)) -
+ - (f1*p10p10pat*(-(f3**2*p1p3pat*p30p30pat)/12. + \
+(5*f1*f3*p30p30pat**2)/36.))/3.))),
+ - Rule(D3a,-(5*C0123*f1*f3*p10p10pat*p1p3pat**2 - \
+5*C11012*f1*f3*p10p10pat*p1p3pat**2 - 10*C12012*f1*f3*p10p10pat*p1p3pat**2 +
+ - 10*C2123*f1*f3*p10p10pat*p1p3pat**2 - \
+5*C22012*f1*f3*p10p10pat*p1p3pat**2 + 5*C22123*f1*f3*p10p10pat*p1p3pat**2 + \
+5*C0123*f3**2*p10p10pat*p1p3pat**2 +
+ - 5*C11023*f3**2*p10p10pat*p1p3pat**2 + \
+20*C2123*f3**2*p10p10pat*p1p3pat**2 + 15*C22123*f3**2*p10p10pat*p1p3pat**2 - \
+10*Da*f3**2*m0m0*p10p10pat*p1p3pat**2 -
+ - 3*C0123*f1**2*p1p3pat**3 + 3*C11012*f1**2*p1p3pat**3 + \
+6*C12012*f1**2*p1p3pat**3 - 6*C2123*f1**2*p1p3pat**3 + \
+3*C22012*f1**2*p1p3pat**3 -
+ - 3*C22123*f1**2*p1p3pat**3 - 3*C0123*f1*f3*p1p3pat**3 - \
+3*C11023*f1*f3*p1p3pat**3 - 12*C2123*f1*f3*p1p3pat**3 - \
+9*C22123*f1*f3*p1p3pat**3 +
+ - 6*Da*f1*f3*m0m0*p1p3pat**3 - \
+10*C0123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+40*C2123*f1*f3*p10p10pat*p1p3pat*p30p30pat -
+ - 30*C22123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+18*C12023*f3**2*p10p10pat*p1p3pat*p30p30pat - \
+12*C2123*f3**2*p10p10pat*p1p3pat*p30p30pat -
+ - 18*C22123*f3**2*p10p10pat*p1p3pat*p30p30pat + \
+10*Da*f1*f3*m0m0*p10p10pat*p1p3pat*p30p30pat + \
+6*D3*f3**2*m0m0*p10p10pat*p1p3pat*p30p30pat +
+ - 6*C0123*f1**2*p1p3pat**2*p30p30pat + \
+24*C2123*f1**2*p1p3pat**2*p30p30pat + 18*C22123*f1**2*p1p3pat**2*p30p30pat + \
+12*C12023*f1*f3*p1p3pat**2*p30p30pat +
+ - 6*C2123*f1*f3*p1p3pat**2*p30p30pat + \
+9*C22123*f1*f3*p1p3pat**2*p30p30pat - 3*C22023*f3**2*p1p3pat**2*p30p30pat + \
+3*C22123*f3**2*p1p3pat**2*p30p30pat -
+ - 6*Da*f1**2*m0m0*p1p3pat**2*p30p30pat - \
+6*D3*f1*f3*m0m0*p1p3pat**2*p30p30pat + 30*C12023*f1*f3*p10p10pat*p30p30pat**2 \
++
+ - 20*C2123*f1*f3*p10p10pat*p30p30pat**2 + \
+30*C22123*f1*f3*p10p10pat*p30p30pat**2 - \
+10*D3*f1*f3*m0m0*p10p10pat*p30p30pat**2 -
+ - 20*C12023*f1**2*p1p3pat*p30p30pat**2 - \
+10*C2123*f1**2*p1p3pat*p30p30pat**2 - 15*C22123*f1**2*p1p3pat*p30p30pat**2 + \
+5*C22023*f1*f3*p1p3pat*p30p30pat**2 -
+ - 5*C22123*f1*f3*p1p3pat*p30p30pat**2 + \
+10*D3*f1**2*m0m0*p1p3pat*p30p30pat**2)/
+ - (2.*(-10*f3**3*p10p10pat*p1p3pat**2 + 6*f1*f3**2*p1p3pat**3 + \
+24*f1*f3**2*p10p10pat*p1p3pat*p30p30pat - 15*f1**2*f3*p1p3pat**2*p30p30pat -
+ - 15*f1**2*f3*p10p10pat*p30p30pat**2 + \
+10*f1**3*p1p3pat*p30p30pat**2))),
+ - Rule(Daa,-((-10*C0123*f3**2*p10p10pat*p1p3pat**2 + \
+10*C11012*f3**2*p10p10pat*p1p3pat**2 + 20*C12012*f3**2*p10p10pat*p1p3pat**2 - \
+
+ - 20*C2123*f3**2*p10p10pat*p1p3pat**2 + \
+10*C22012*f3**2*p10p10pat*p1p3pat**2 - 10*C22123*f3**2*p10p10pat*p1p3pat**2 + \
+6*C0123*f1*f3*p1p3pat**3 -
+ - 6*C11012*f1*f3*p1p3pat**3 - 12*C12012*f1*f3*p1p3pat**3 + \
+12*C2123*f1*f3*p1p3pat**3 - 6*C22012*f1*f3*p1p3pat**3 + \
+6*C22123*f1*f3*p1p3pat**3 +
+ - 9*C0123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+9*C11012*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+18*C12012*f1*f3*p10p10pat*p1p3pat*p30p30pat +
+ - 18*C2123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+9*C22012*f1*f3*p10p10pat*p1p3pat*p30p30pat + \
+9*C22123*f1*f3*p10p10pat*p1p3pat*p30p30pat +
+ - 5*C0123*f3**2*p10p10pat*p1p3pat*p30p30pat - \
+15*C11023*f3**2*p10p10pat*p1p3pat*p30p30pat + \
+20*C2123*f3**2*p10p10pat*p1p3pat*p30p30pat +
+ - 15*C22123*f3**2*p10p10pat*p1p3pat*p30p30pat + \
+10*Da*f3**2*m0m0*p10p10pat*p1p3pat*p30p30pat - \
+6*C0123*f1**2*p1p3pat**2*p30p30pat +
+ - 6*C11012*f1**2*p1p3pat**2*p30p30pat + \
+12*C12012*f1**2*p1p3pat**2*p30p30pat - 12*C2123*f1**2*p1p3pat**2*p30p30pat + \
+6*C22012*f1**2*p1p3pat**2*p30p30pat -
+ - 6*C22123*f1**2*p1p3pat**2*p30p30pat - \
+3*C0123*f1*f3*p1p3pat**2*p30p30pat + 9*C11023*f1*f3*p1p3pat**2*p30p30pat - \
+12*C2123*f1*f3*p1p3pat**2*p30p30pat -
+ - 9*C22123*f1*f3*p1p3pat**2*p30p30pat - \
+6*Da*f1*f3*m0m0*p1p3pat**2*p30p30pat - 3*C0123*f1*f3*p10p10pat*p30p30pat**2 + \
+
+ - 15*C11023*f1*f3*p10p10pat*p30p30pat**2 - \
+12*C2123*f1*f3*p10p10pat*p30p30pat**2 - 9*C22123*f1*f3*p10p10pat*p30p30pat**2 \
+-
+ - 6*C12023*f3**2*p10p10pat*p30p30pat**2 - \
+4*C2123*f3**2*p10p10pat*p30p30pat**2 - 6*C22123*f3**2*p10p10pat*p30p30pat**2 -
+ - 12*Da*f1*f3*m0m0*p10p10pat*p30p30pat**2 + \
+2*D3*f3**2*m0m0*p10p10pat*p30p30pat**2 + 2*C0123*f1**2*p1p3pat*p30p30pat**2 - \
+
+ - 10*C11023*f1**2*p1p3pat*p30p30pat**2 + \
+8*C2123*f1**2*p1p3pat*p30p30pat**2 + 6*C22123*f1**2*p1p3pat*p30p30pat**2 + \
+4*C12023*f1*f3*p1p3pat*p30p30pat**2 +
+ - 2*C2123*f1*f3*p1p3pat*p30p30pat**2 + \
+3*C22123*f1*f3*p1p3pat*p30p30pat**2 - C22023*f3**2*p1p3pat*p30p30pat**2 + \
+C22123*f3**2*p1p3pat*p30p30pat**2 +
+ - 8*Da*f1**2*m0m0*p1p3pat*p30p30pat**2 - \
+2*D3*f1*f3*m0m0*p1p3pat*p30p30pat**2)/
+ - (-10*f3**3*p10p10pat*p1p3pat**2 + 6*f1*f3**2*p1p3pat**3 + \
+24*f1*f3**2*p10p10pat*p1p3pat*p30p30pat - 15*f1**2*f3*p1p3pat**2*p30p30pat -
+ - 15*f1**2*f3*p10p10pat*p30p30pat**2 + \
+10*f1**3*p1p3pat*p30p30pat**2)))))\
+\>", "Output",
+ CellChangeTimes->{3.664609761379043*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"W2", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"W4", " ", "\[Equal]", " ", "0"}], " ", "&&", " ",
+ RowBox[{"W6", " ", "\[Equal]", " ", "0"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"D33", ",", "D3a", ",", " ", "Daa"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.66460963150601*^9, 3.6646096357939568`*^9}}],
+
+Cell[BoxData[
+ FormBox[
+ RowBox[{"{",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"D33", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"f1", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "C0123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C11012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C12012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22012", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"C0123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"5", " ", "C11023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ", "Da", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "C0123"}], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"C11023", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"4", " ", "C2123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "Da", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"4", " ", "C12023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "D3", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}]}], ")"}]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "12"}], " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "f1", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"20", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2", " ", "C12023", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"2", " ", "C2123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"4", " ", "D3", " ", "m0m0", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C22023", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "2"}], " ", "f1", " ", "f3", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ", "f1", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "12"}], " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"30", " ", "f1", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"20", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}]}], ")"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"3", " ", "f1", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ", "f3", " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}]}], ")"}]}], ")"}]}]}], ",",
+ RowBox[{"D3a", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"30", " ", "C12023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"20", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"30", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"10", " ", "D3", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"18", " ", "C12023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"18", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"10", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"40", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"30", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "D3", " ",
+ SuperscriptBox["f3", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"10", " ", "Da", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"20", " ", "C12023", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"10", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"5", " ", "C22023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"5", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"10", " ", "D3", " ",
+ SuperscriptBox["f1", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"5", " ", "C0123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"5", " ", "C11023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"20", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"15", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"5", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"5", " ", "C11012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"10", " ", "C12012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"10", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"5", " ", "C22012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"5", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"10", " ", "Da", " ",
+ SuperscriptBox["f3", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "C0123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"24", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"18", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C22023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"12", " ", "C12023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "Da", " ",
+ SuperscriptBox["f1", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "D3", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C0123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C11012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C12012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C22012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"3", " ", "C11023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "Da", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"10", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "3"]}], "-",
+ RowBox[{"15", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"], " ",
+ SuperscriptBox["f1", "2"]}], "-",
+ RowBox[{"15", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "+",
+ RowBox[{"24", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ", "f1"}], "+",
+ RowBox[{"6", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ", "f1"}], "-",
+ RowBox[{"10", " ",
+ SuperscriptBox["f3", "3"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], ")"}]}], ")"}]}]}], ",",
+ RowBox[{"Daa", "\[Rule]",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "6"}], " ", "C12023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"4", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"6", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"3", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"15", " ", "C11023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"12", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"2", " ", "D3", " ",
+ SuperscriptBox["f3", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "-",
+ RowBox[{"12", " ", "Da", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"]}], "+",
+ RowBox[{"5", " ", "C0123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"15", " ", "C11023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"20", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"15", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "C11012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"18", " ", "C12012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"18", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"9", " ", "C22012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"10", " ", "Da", " ",
+ SuperscriptBox["f3", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C0123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"10", " ", "C11023", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"8", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"C22023", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"4", " ", "C12023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"2", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"3", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"8", " ", "Da", " ",
+ SuperscriptBox["f1", "2"], " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"2", " ", "D3", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"10", " ", "C0123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"10", " ", "C11012", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"20", " ", "C12012", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"20", " ", "C2123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"10", " ", "C22012", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"10", " ", "C22123", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "C0123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "C11012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"12", " ", "C12012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"12", " ", "C2123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "C22012", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "C22123", " ",
+ SuperscriptBox["f1", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"3", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"9", " ", "C11023", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"12", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"9", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "-",
+ RowBox[{"6", " ", "Da", " ", "f1", " ", "f3", " ", "m0m0", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}], "+",
+ RowBox[{"6", " ", "C0123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C11012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"12", " ", "C12012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"12", " ", "C2123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "-",
+ RowBox[{"6", " ", "C22012", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}], "+",
+ RowBox[{"6", " ", "C22123", " ", "f1", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"]}]}], ")"}], "/",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"10", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "3"]}], "-",
+ RowBox[{"15", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "3"], " ",
+ SuperscriptBox["f1", "2"]}], "-",
+ RowBox[{"15", " ", "f3", " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox["f1", "2"]}], "+",
+ RowBox[{"24", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}],
+ TraditionalForm], "2"], " ", "f1"}], "+",
+ RowBox[{"6", " ",
+ SuperscriptBox["f3", "2"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ SuperscriptBox[
+ FormBox["p3",
+ TraditionalForm], "2"], " ", "f1"}], "-",
+ RowBox[{"10", " ",
+ SuperscriptBox["f3", "3"], " ",
+ SuperscriptBox[
+ FormBox[
+ SuperscriptBox[
+ FormBox["p",
+ TraditionalForm], "2"],
+ TraditionalForm], "2"], " ",
+ RowBox[{
+ FormBox["p",
+ TraditionalForm], "\[CenterDot]",
+ FormBox["p3",
+ TraditionalForm]}]}]}], ")"}]}], ")"}]}]}]}], "}"}], "}"}],
+ TraditionalForm]], "Output",
+ CellChangeTimes->{3.6646096371926126`*^9, 3.6646097786105328`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"InputForm", "[", "%", "]"}], "/.",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p10p10pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p3", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p30p30pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"Pair", "[",
+ RowBox[{
+ RowBox[{"Momentum", "[", "p", "]"}], ",",
+ RowBox[{"Momentum", "[", "p3", "]"}]}], "]"}], " ", "\[Rule]", " ",
+ "p1p3pat"}], ",", " ",
+ RowBox[{
+ RowBox[{"m0", "^", "2"}], "\[Rule]", " ", "m0m0"}]}], "}"}]}]], "Input"],
+
+Cell["\<\
+{
+ {D33 -> -((-2*f1*p1p3pat*(-((3*f3*p10p10pat - \
+5*f1*p1p3pat)*(-(C0123*p10p10pat) - C11023*p10p10pat - 4*C2123*p10p10pat - \
+3*C22123*p10p10pat + 2*Da*m0m0*p10p10pat +
+ 4*C12023*p1p3pat + 2*C2123*p1p3pat + 3*C22123*p1p3pat - \
+2*D3*m0m0*p1p3pat)) + f1*p10p10pat*(3*C0123*p10p10pat - 3*C11012*p10p10pat - \
+6*C12012*p10p10pat +
+ 6*C2123*p10p10pat - 3*C22012*p10p10pat + 3*C22123*p10p10pat - \
+C0123*p1p3pat + 5*C11023*p1p3pat - 4*C2123*p1p3pat - 3*C22123*p1p3pat - \
+4*Da*m0m0*p1p3pat)) -
+ (-12*f3^2*p10p10pat^2 + 30*f1*f3*p10p10pat*p1p3pat - \
+20*f1^2*p1p3pat^2)*(2*C12023*p1p3pat - 2*C2123*p1p3pat - 3*C22123*p1p3pat - \
+4*D3*m0m0*p1p3pat -
+ 3*C22023*p30p30pat + \
+3*C22123*p30p30pat))/(-2*f1*f3*p1p3pat^2*(3*f3*p10p10pat - 5*f1*p1p3pat) -
+ (-12*f3^2*p10p10pat^2 + 30*f1*f3*p10p10pat*p1p3pat - \
+20*f1^2*p1p3pat^2)*(-5*f3*p1p3pat + 3*f1*p30p30pat))),
+ D3a -> -(5*C0123*f1*f3*p10p10pat^2*p1p3pat - \
+5*C11012*f1*f3*p10p10pat^2*p1p3pat - 10*C12012*f1*f3*p10p10pat^2*p1p3pat + \
+10*C2123*f1*f3*p10p10pat^2*p1p3pat -
+ 5*C22012*f1*f3*p10p10pat^2*p1p3pat + 5*C22123*f1*f3*p10p10pat^2*p1p3pat \
++ 5*C0123*f3^2*p10p10pat^2*p1p3pat + 5*C11023*f3^2*p10p10pat^2*p1p3pat +
+ 20*C2123*f3^2*p10p10pat^2*p1p3pat + 15*C22123*f3^2*p10p10pat^2*p1p3pat \
+- 10*Da*f3^2*m0m0*p10p10pat^2*p1p3pat - 10*C0123*f1*f3*p10p10pat*p1p3pat^2 -
+ 40*C2123*f1*f3*p10p10pat*p1p3pat^2 - \
+30*C22123*f1*f3*p10p10pat*p1p3pat^2 - 18*C12023*f3^2*p10p10pat*p1p3pat^2 - \
+12*C2123*f3^2*p10p10pat*p1p3pat^2 -
+ 18*C22123*f3^2*p10p10pat*p1p3pat^2 + \
+10*Da*f1*f3*m0m0*p10p10pat*p1p3pat^2 + 6*D3*f3^2*m0m0*p10p10pat*p1p3pat^2 + \
+30*C12023*f1*f3*p1p3pat^3 +
+ 20*C2123*f1*f3*p1p3pat^3 + 30*C22123*f1*f3*p1p3pat^3 - \
+10*D3*f1*f3*m0m0*p1p3pat^3 - 3*C0123*f1^2*p10p10pat^2*p30p30pat + \
+3*C11012*f1^2*p10p10pat^2*p30p30pat +
+ 6*C12012*f1^2*p10p10pat^2*p30p30pat - \
+6*C2123*f1^2*p10p10pat^2*p30p30pat + 3*C22012*f1^2*p10p10pat^2*p30p30pat - \
+3*C22123*f1^2*p10p10pat^2*p30p30pat -
+ 3*C0123*f1*f3*p10p10pat^2*p30p30pat - \
+3*C11023*f1*f3*p10p10pat^2*p30p30pat - 12*C2123*f1*f3*p10p10pat^2*p30p30pat - \
+9*C22123*f1*f3*p10p10pat^2*p30p30pat +
+ 6*Da*f1*f3*m0m0*p10p10pat^2*p30p30pat + \
+6*C0123*f1^2*p10p10pat*p1p3pat*p30p30pat + \
+24*C2123*f1^2*p10p10pat*p1p3pat*p30p30pat +
+ 18*C22123*f1^2*p10p10pat*p1p3pat*p30p30pat + \
+12*C12023*f1*f3*p10p10pat*p1p3pat*p30p30pat + \
+6*C2123*f1*f3*p10p10pat*p1p3pat*p30p30pat +
+ 9*C22123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+3*C22023*f3^2*p10p10pat*p1p3pat*p30p30pat + \
+3*C22123*f3^2*p10p10pat*p1p3pat*p30p30pat -
+ 6*Da*f1^2*m0m0*p10p10pat*p1p3pat*p30p30pat - \
+6*D3*f1*f3*m0m0*p10p10pat*p1p3pat*p30p30pat - \
+20*C12023*f1^2*p1p3pat^2*p30p30pat -
+ 10*C2123*f1^2*p1p3pat^2*p30p30pat - 15*C22123*f1^2*p1p3pat^2*p30p30pat \
++ 5*C22023*f1*f3*p1p3pat^2*p30p30pat - 5*C22123*f1*f3*p1p3pat^2*p30p30pat +
+ 10*D3*f1^2*m0m0*p1p3pat^2*p30p30pat)/(2*(-10*f3^3*p10p10pat^2*p1p3pat + \
+24*f1*f3^2*p10p10pat*p1p3pat^2 - 15*f1^2*f3*p1p3pat^3 + \
+6*f1*f3^2*p10p10pat^2*p30p30pat -
+ 15*f1^2*f3*p10p10pat*p1p3pat*p30p30pat + 10*f1^3*p1p3pat^2*p30p30pat)), \
+
+ Daa -> -((-10*C0123*f3^2*p10p10pat^2*p1p3pat + \
+10*C11012*f3^2*p10p10pat^2*p1p3pat + 20*C12012*f3^2*p10p10pat^2*p1p3pat - \
+20*C2123*f3^2*p10p10pat^2*p1p3pat +
+ 10*C22012*f3^2*p10p10pat^2*p1p3pat - 10*C22123*f3^2*p10p10pat^2*p1p3pat \
++ 9*C0123*f1*f3*p10p10pat*p1p3pat^2 - 9*C11012*f1*f3*p10p10pat*p1p3pat^2 -
+ 18*C12012*f1*f3*p10p10pat*p1p3pat^2 + \
+18*C2123*f1*f3*p10p10pat*p1p3pat^2 - 9*C22012*f1*f3*p10p10pat*p1p3pat^2 + \
+9*C22123*f1*f3*p10p10pat*p1p3pat^2 +
+ 5*C0123*f3^2*p10p10pat*p1p3pat^2 - 15*C11023*f3^2*p10p10pat*p1p3pat^2 + \
+20*C2123*f3^2*p10p10pat*p1p3pat^2 + 15*C22123*f3^2*p10p10pat*p1p3pat^2 +
+ 10*Da*f3^2*m0m0*p10p10pat*p1p3pat^2 - 3*C0123*f1*f3*p1p3pat^3 + \
+15*C11023*f1*f3*p1p3pat^3 - 12*C2123*f1*f3*p1p3pat^3 - \
+9*C22123*f1*f3*p1p3pat^3 -
+ 6*C12023*f3^2*p1p3pat^3 - 4*C2123*f3^2*p1p3pat^3 - \
+6*C22123*f3^2*p1p3pat^3 - 12*Da*f1*f3*m0m0*p1p3pat^3 + \
+2*D3*f3^2*m0m0*p1p3pat^3 +
+ 6*C0123*f1*f3*p10p10pat^2*p30p30pat - \
+6*C11012*f1*f3*p10p10pat^2*p30p30pat - 12*C12012*f1*f3*p10p10pat^2*p30p30pat \
++ 12*C2123*f1*f3*p10p10pat^2*p30p30pat -
+ 6*C22012*f1*f3*p10p10pat^2*p30p30pat + \
+6*C22123*f1*f3*p10p10pat^2*p30p30pat - \
+6*C0123*f1^2*p10p10pat*p1p3pat*p30p30pat +
+ 6*C11012*f1^2*p10p10pat*p1p3pat*p30p30pat + \
+12*C12012*f1^2*p10p10pat*p1p3pat*p30p30pat - \
+12*C2123*f1^2*p10p10pat*p1p3pat*p30p30pat +
+ 6*C22012*f1^2*p10p10pat*p1p3pat*p30p30pat - \
+6*C22123*f1^2*p10p10pat*p1p3pat*p30p30pat - \
+3*C0123*f1*f3*p10p10pat*p1p3pat*p30p30pat +
+ 9*C11023*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+12*C2123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+9*C22123*f1*f3*p10p10pat*p1p3pat*p30p30pat -
+ 6*Da*f1*f3*m0m0*p10p10pat*p1p3pat*p30p30pat + \
+2*C0123*f1^2*p1p3pat^2*p30p30pat - 10*C11023*f1^2*p1p3pat^2*p30p30pat + \
+8*C2123*f1^2*p1p3pat^2*p30p30pat +
+ 6*C22123*f1^2*p1p3pat^2*p30p30pat + 4*C12023*f1*f3*p1p3pat^2*p30p30pat \
++ 2*C2123*f1*f3*p1p3pat^2*p30p30pat + 3*C22123*f1*f3*p1p3pat^2*p30p30pat -
+ C22023*f3^2*p1p3pat^2*p30p30pat + C22123*f3^2*p1p3pat^2*p30p30pat + \
+8*Da*f1^2*m0m0*p1p3pat^2*p30p30pat - 2*D3*f1*f3*m0m0*p1p3pat^2*p30p30pat)/
+ (-10*f3^3*p10p10pat^2*p1p3pat + 24*f1*f3^2*p10p10pat*p1p3pat^2 - \
+15*f1^2*f3*p1p3pat^3 + 6*f1*f3^2*p10p10pat^2*p30p30pat - \
+15*f1^2*f3*p10p10pat*p1p3pat*p30p30pat +
+ 10*f1^3*p1p3pat^2*p30p30pat))}}\
+\>", "Output",
+ CellChangeTimes->{3.664609785035215*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"FortranForm", "[", "%", "]"}]], "Input",
+ CellChangeTimes->{{3.664609787203205*^9, 3.66460979110542*^9}}],
+
+Cell["\<\
+ List(List(Rule(D33,-((-2*f1*p1p3pat*(-((3*f3*p10p10pat - 5*f1*p1p3pat)*
+ - (-(C0123*p10p10pat) - C11023*p10p10pat - \
+4*C2123*p10p10pat - 3*C22123*p10p10pat + 2*Da*m0m0*p10p10pat + \
+4*C12023*p1p3pat + 2*C2123*p1p3pat +
+ - 3*C22123*p1p3pat - 2*D3*m0m0*p1p3pat)) + f1*p10p10pat*
+ - (3*C0123*p10p10pat - 3*C11012*p10p10pat - \
+6*C12012*p10p10pat + 6*C2123*p10p10pat - 3*C22012*p10p10pat + \
+3*C22123*p10p10pat - C0123*p1p3pat +
+ - 5*C11023*p1p3pat - 4*C2123*p1p3pat - 3*C22123*p1p3pat - \
+4*Da*m0m0*p1p3pat)) -
+ - (-12*f3**2*p10p10pat**2 + 30*f1*f3*p10p10pat*p1p3pat - \
+20*f1**2*p1p3pat**2)*
+ - (2*C12023*p1p3pat - 2*C2123*p1p3pat - 3*C22123*p1p3pat - \
+4*D3*m0m0*p1p3pat - 3*C22023*p30p30pat + 3*C22123*p30p30pat))/
+ - (-2*f1*f3*p1p3pat**2*(3*f3*p10p10pat - 5*f1*p1p3pat) -
+ - (-12*f3**2*p10p10pat**2 + 30*f1*f3*p10p10pat*p1p3pat - \
+20*f1**2*p1p3pat**2)*(-5*f3*p1p3pat + 3*f1*p30p30pat)))),
+ - Rule(D3a,-(5*C0123*f1*f3*p10p10pat**2*p1p3pat - \
+5*C11012*f1*f3*p10p10pat**2*p1p3pat - 10*C12012*f1*f3*p10p10pat**2*p1p3pat +
+ - 10*C2123*f1*f3*p10p10pat**2*p1p3pat - \
+5*C22012*f1*f3*p10p10pat**2*p1p3pat + 5*C22123*f1*f3*p10p10pat**2*p1p3pat + \
+5*C0123*f3**2*p10p10pat**2*p1p3pat +
+ - 5*C11023*f3**2*p10p10pat**2*p1p3pat + \
+20*C2123*f3**2*p10p10pat**2*p1p3pat + 15*C22123*f3**2*p10p10pat**2*p1p3pat - \
+10*Da*f3**2*m0m0*p10p10pat**2*p1p3pat -
+ - 10*C0123*f1*f3*p10p10pat*p1p3pat**2 - \
+40*C2123*f1*f3*p10p10pat*p1p3pat**2 - 30*C22123*f1*f3*p10p10pat*p1p3pat**2 - \
+18*C12023*f3**2*p10p10pat*p1p3pat**2 -
+ - 12*C2123*f3**2*p10p10pat*p1p3pat**2 - \
+18*C22123*f3**2*p10p10pat*p1p3pat**2 + 10*Da*f1*f3*m0m0*p10p10pat*p1p3pat**2 +
+ - 6*D3*f3**2*m0m0*p10p10pat*p1p3pat**2 + \
+30*C12023*f1*f3*p1p3pat**3 + 20*C2123*f1*f3*p1p3pat**3 + \
+30*C22123*f1*f3*p1p3pat**3 - 10*D3*f1*f3*m0m0*p1p3pat**3 -
+ - 3*C0123*f1**2*p10p10pat**2*p30p30pat + \
+3*C11012*f1**2*p10p10pat**2*p30p30pat + 6*C12012*f1**2*p10p10pat**2*p30p30pat \
+-
+ - 6*C2123*f1**2*p10p10pat**2*p30p30pat + \
+3*C22012*f1**2*p10p10pat**2*p30p30pat - 3*C22123*f1**2*p10p10pat**2*p30p30pat \
+-
+ - 3*C0123*f1*f3*p10p10pat**2*p30p30pat - \
+3*C11023*f1*f3*p10p10pat**2*p30p30pat - 12*C2123*f1*f3*p10p10pat**2*p30p30pat \
+-
+ - 9*C22123*f1*f3*p10p10pat**2*p30p30pat + \
+6*Da*f1*f3*m0m0*p10p10pat**2*p30p30pat + \
+6*C0123*f1**2*p10p10pat*p1p3pat*p30p30pat +
+ - 24*C2123*f1**2*p10p10pat*p1p3pat*p30p30pat + \
+18*C22123*f1**2*p10p10pat*p1p3pat*p30p30pat + \
+12*C12023*f1*f3*p10p10pat*p1p3pat*p30p30pat +
+ - 6*C2123*f1*f3*p10p10pat*p1p3pat*p30p30pat + \
+9*C22123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+3*C22023*f3**2*p10p10pat*p1p3pat*p30p30pat +
+ - 3*C22123*f3**2*p10p10pat*p1p3pat*p30p30pat - \
+6*Da*f1**2*m0m0*p10p10pat*p1p3pat*p30p30pat - \
+6*D3*f1*f3*m0m0*p10p10pat*p1p3pat*p30p30pat -
+ - 20*C12023*f1**2*p1p3pat**2*p30p30pat - \
+10*C2123*f1**2*p1p3pat**2*p30p30pat - 15*C22123*f1**2*p1p3pat**2*p30p30pat + \
+5*C22023*f1*f3*p1p3pat**2*p30p30pat -
+ - 5*C22123*f1*f3*p1p3pat**2*p30p30pat + \
+10*D3*f1**2*m0m0*p1p3pat**2*p30p30pat)/
+ - (2.*(-10*f3**3*p10p10pat**2*p1p3pat + \
+24*f1*f3**2*p10p10pat*p1p3pat**2 - 15*f1**2*f3*p1p3pat**3 + \
+6*f1*f3**2*p10p10pat**2*p30p30pat -
+ - 15*f1**2*f3*p10p10pat*p1p3pat*p30p30pat + \
+10*f1**3*p1p3pat**2*p30p30pat))),
+ - Rule(Daa,-((-10*C0123*f3**2*p10p10pat**2*p1p3pat + \
+10*C11012*f3**2*p10p10pat**2*p1p3pat + 20*C12012*f3**2*p10p10pat**2*p1p3pat - \
+
+ - 20*C2123*f3**2*p10p10pat**2*p1p3pat + \
+10*C22012*f3**2*p10p10pat**2*p1p3pat - 10*C22123*f3**2*p10p10pat**2*p1p3pat + \
+9*C0123*f1*f3*p10p10pat*p1p3pat**2 -
+ - 9*C11012*f1*f3*p10p10pat*p1p3pat**2 - \
+18*C12012*f1*f3*p10p10pat*p1p3pat**2 + 18*C2123*f1*f3*p10p10pat*p1p3pat**2 - \
+9*C22012*f1*f3*p10p10pat*p1p3pat**2 +
+ - 9*C22123*f1*f3*p10p10pat*p1p3pat**2 + \
+5*C0123*f3**2*p10p10pat*p1p3pat**2 - 15*C11023*f3**2*p10p10pat*p1p3pat**2 + \
+20*C2123*f3**2*p10p10pat*p1p3pat**2 +
+ - 15*C22123*f3**2*p10p10pat*p1p3pat**2 + \
+10*Da*f3**2*m0m0*p10p10pat*p1p3pat**2 - 3*C0123*f1*f3*p1p3pat**3 + \
+15*C11023*f1*f3*p1p3pat**3 -
+ - 12*C2123*f1*f3*p1p3pat**3 - 9*C22123*f1*f3*p1p3pat**3 - \
+6*C12023*f3**2*p1p3pat**3 - 4*C2123*f3**2*p1p3pat**3 - \
+6*C22123*f3**2*p1p3pat**3 -
+ - 12*Da*f1*f3*m0m0*p1p3pat**3 + 2*D3*f3**2*m0m0*p1p3pat**3 + \
+6*C0123*f1*f3*p10p10pat**2*p30p30pat - 6*C11012*f1*f3*p10p10pat**2*p30p30pat -
+ - 12*C12012*f1*f3*p10p10pat**2*p30p30pat + \
+12*C2123*f1*f3*p10p10pat**2*p30p30pat - 6*C22012*f1*f3*p10p10pat**2*p30p30pat \
++
+ - 6*C22123*f1*f3*p10p10pat**2*p30p30pat - \
+6*C0123*f1**2*p10p10pat*p1p3pat*p30p30pat + \
+6*C11012*f1**2*p10p10pat*p1p3pat*p30p30pat +
+ - 12*C12012*f1**2*p10p10pat*p1p3pat*p30p30pat - \
+12*C2123*f1**2*p10p10pat*p1p3pat*p30p30pat + \
+6*C22012*f1**2*p10p10pat*p1p3pat*p30p30pat -
+ - 6*C22123*f1**2*p10p10pat*p1p3pat*p30p30pat - \
+3*C0123*f1*f3*p10p10pat*p1p3pat*p30p30pat + \
+9*C11023*f1*f3*p10p10pat*p1p3pat*p30p30pat -
+ - 12*C2123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+9*C22123*f1*f3*p10p10pat*p1p3pat*p30p30pat - \
+6*Da*f1*f3*m0m0*p10p10pat*p1p3pat*p30p30pat +
+ - 2*C0123*f1**2*p1p3pat**2*p30p30pat - \
+10*C11023*f1**2*p1p3pat**2*p30p30pat + 8*C2123*f1**2*p1p3pat**2*p30p30pat + \
+6*C22123*f1**2*p1p3pat**2*p30p30pat +
+ - 4*C12023*f1*f3*p1p3pat**2*p30p30pat + \
+2*C2123*f1*f3*p1p3pat**2*p30p30pat + 3*C22123*f1*f3*p1p3pat**2*p30p30pat - \
+C22023*f3**2*p1p3pat**2*p30p30pat +
+ - C22123*f3**2*p1p3pat**2*p30p30pat + \
+8*Da*f1**2*m0m0*p1p3pat**2*p30p30pat - 2*D3*f1*f3*m0m0*p1p3pat**2*p30p30pat)/
+ - (-10*f3**3*p10p10pat**2*p1p3pat + \
+24*f1*f3**2*p10p10pat*p1p3pat**2 - 15*f1**2*f3*p1p3pat**3 + \
+6*f1*f3**2*p10p10pat**2*p30p30pat -
+ - 15*f1**2*f3*p10p10pat*p1p3pat*p30p30pat + \
+10*f1**3*p1p3pat**2*p30p30pat)))))\
+\>", "Output",
+ CellChangeTimes->{3.664609791984454*^9}]
+}, Open ]]
+}, Open ]]
+}, Open ]]
+},
+CellGrouping->Automatic,
+WindowSize->{1672, 944},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
+ShowSelection->True,
+FrontEndVersion->"10.1 for Linux x86 (64-bit) (March 23, 2015)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[CellGroupData[{
+Cell[579, 22, 230, 3, 93, "Title"],
+Cell[812, 27, 237, 5, 34, "Text"],
+Cell[CellGroupData[{
+Cell[1074, 36, 142, 2, 101, "Section"],
+Cell[CellGroupData[{
+Cell[1241, 42, 102, 2, 32, "Input"],
+Cell[CellGroupData[{
+Cell[1368, 48, 718, 14, 23, "Print"],
+Cell[2089, 64, 803, 16, 23, "Print"],
+Cell[2895, 82, 439, 7, 23, "Print"],
+Cell[3337, 91, 424, 6, 23, "Print"]
+}, Open ]]
+}, Open ]],
+Cell[3788, 101, 255, 7, 20, "Text"],
+Cell[4046, 110, 723, 23, 20, "Text"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[4806, 138, 170, 2, 65, "Section"],
+Cell[4979, 142, 110, 1, 33, "Text"],
+Cell[CellGroupData[{
+Cell[5114, 147, 353, 11, 32, "Input"],
+Cell[5470, 160, 762, 21, 68, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[6269, 186, 173, 3, 32, "Input"],
+Cell[6445, 191, 248, 7, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[6730, 203, 126, 2, 32, "Input"],
+Cell[6859, 207, 1457, 45, 86, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[8353, 257, 214, 5, 32, "Input"],
+Cell[8570, 264, 726, 21, 54, "Output"]
+}, Open ]],
+Cell[9311, 288, 423, 11, 32, "Input"],
+Cell[9737, 301, 562, 18, 32, "Input"]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[10336, 324, 208, 3, 51, "Section"],
+Cell[CellGroupData[{
+Cell[10569, 331, 99, 1, 44, "Subsection"],
+Cell[10671, 334, 417, 12, 32, "Input"],
+Cell[11091, 348, 417, 12, 32, "Input"],
+Cell[11511, 362, 173, 5, 32, "Input"],
+Cell[11687, 369, 198, 5, 32, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[11922, 379, 102, 1, 44, "Subsection"],
+Cell[CellGroupData[{
+Cell[12049, 384, 285, 7, 32, "Input"],
+Cell[12337, 393, 2201, 65, 74, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[14599, 465, 175, 2, 51, "Section"],
+Cell[CellGroupData[{
+Cell[14799, 471, 122, 2, 44, "Subsection"],
+Cell[14924, 475, 456, 13, 32, "Input"],
+Cell[15383, 490, 500, 14, 32, "Input"],
+Cell[15886, 506, 405, 12, 32, "Input"],
+Cell[16294, 520, 398, 12, 32, "Input"],
+Cell[16695, 534, 202, 5, 32, "Input"],
+Cell[16900, 541, 202, 5, 32, "Input"],
+Cell[17105, 548, 202, 5, 32, "Input"],
+Cell[17310, 555, 197, 5, 32, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[17544, 565, 100, 1, 44, "Subsection"],
+Cell[CellGroupData[{
+Cell[17669, 570, 235, 6, 32, "Input"],
+Cell[17907, 578, 4118, 115, 195, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[22062, 698, 236, 6, 32, "Input"],
+Cell[22301, 706, 3670, 104, 195, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[26032, 817, 156, 2, 51, "Section"],
+Cell[CellGroupData[{
+Cell[26213, 823, 101, 1, 44, "Subsection"],
+Cell[26317, 826, 349, 11, 32, "Input"],
+Cell[26669, 839, 349, 11, 32, "Input"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[27055, 855, 101, 1, 44, "Subsection"],
+Cell[CellGroupData[{
+Cell[27181, 860, 282, 8, 32, "Input"],
+Cell[27466, 870, 868, 28, 64, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[28371, 903, 282, 8, 32, "Input"],
+Cell[28656, 913, 812, 26, 64, "Output"]
+}, Open ]]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[29529, 946, 212, 3, 51, "Section"],
+Cell[29744, 951, 388, 12, 32, "Input"],
+Cell[30135, 965, 435, 13, 32, "Input"],
+Cell[30573, 980, 339, 11, 32, "Input"],
+Cell[30915, 993, 397, 12, 32, "Input"],
+Cell[CellGroupData[{
+Cell[31337, 1009, 623, 17, 32, "Input"],
+Cell[31963, 1028, 7681, 200, 220, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[39681, 1233, 618, 17, 32, "Input"],
+Cell[40302, 1252, 7659, 200, 220, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[48010, 1458, 171, 2, 51, "Section"],
+Cell[CellGroupData[{
+Cell[48206, 1464, 3796, 104, 121, "Input"],
+Cell[52005, 1570, 6548, 255, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[58590, 1830, 1173, 31, 55, "Input"],
+Cell[59766, 1863, 2094, 75, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[61897, 1943, 2379, 60, 77, "Input"],
+Cell[64279, 2005, 3394, 133, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[67710, 2143, 681, 18, 32, "Input"],
+Cell[68394, 2163, 2995, 113, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[71426, 2281, 276, 7, 32, "Input"],
+Cell[71705, 2290, 5486, 221, 56, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[77228, 2516, 276, 7, 32, "Input"],
+Cell[77507, 2525, 5453, 220, 56, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[82997, 2750, 926, 23, 32, "Input"],
+Cell[83926, 2775, 1644, 53, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[85607, 2833, 639, 17, 32, "Input"],
+Cell[86249, 2852, 6506, 229, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[92792, 3086, 644, 17, 32, "Input"],
+Cell[93439, 3105, 6493, 229, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[99969, 3339, 571, 15, 32, "Input"],
+Cell[100543, 3356, 825, 27, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[101405, 3388, 526, 15, 32, "Input"],
+Cell[101934, 3405, 960, 26, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[102931, 3436, 967, 25, 32, "Input"],
+Cell[103901, 3463, 980, 24, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[104918, 3492, 918, 24, 32, "Input"],
+Cell[105839, 3518, 877, 23, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[106753, 3546, 869, 23, 32, "Input"],
+Cell[107625, 3571, 898, 23, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[108560, 3599, 871, 23, 32, "Input"],
+Cell[109434, 3624, 887, 23, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[110358, 3652, 922, 24, 32, "Input"],
+Cell[111283, 3678, 917, 24, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[112237, 3707, 871, 23, 32, "Input"],
+Cell[113111, 3732, 889, 22, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[114037, 3759, 918, 24, 32, "Input"],
+Cell[114958, 3785, 894, 23, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[115889, 3813, 869, 23, 32, "Input"],
+Cell[116761, 3838, 923, 24, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[117721, 3867, 871, 23, 32, "Input"],
+Cell[118595, 3892, 869, 23, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[119501, 3920, 871, 23, 32, "Input"],
+Cell[120375, 3945, 828, 22, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[121240, 3972, 264, 6, 32, "Input"],
+Cell[121507, 3980, 697, 18, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[122241, 4003, 130, 2, 32, "Input"],
+Cell[122374, 4007, 314, 6, 32, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[122725, 4018, 472, 12, 32, "Input"],
+Cell[123200, 4032, 586, 15, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[123823, 4052, 262, 6, 32, "Input"],
+Cell[124088, 4060, 760, 20, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[124885, 4085, 62, 1, 32, "Input"],
+Cell[124950, 4088, 325, 6, 32, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[125312, 4099, 587, 14, 32, "Input"],
+Cell[125902, 4115, 596, 16, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[126535, 4136, 380, 9, 32, "Input"],
+Cell[126918, 4147, 4990, 149, 135, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[131945, 4301, 127, 2, 32, "Input"],
+Cell[132075, 4305, 1284, 22, 158, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[133396, 4332, 1849, 48, 77, "Input"],
+Cell[135248, 4382, 1318, 40, 62, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[136603, 4427, 2676, 68, 99, "Input"],
+Cell[139282, 4497, 2034, 69, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[141353, 4571, 331, 8, 32, "Input"],
+Cell[141687, 4581, 4316, 132, 135, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[146040, 4718, 128, 2, 32, "Input"],
+Cell[146171, 4722, 1083, 17, 140, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[147291, 4744, 1639, 44, 77, "Input"],
+Cell[148933, 4790, 1189, 37, 62, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[150159, 4832, 2105, 53, 77, "Input"],
+Cell[152267, 4887, 1706, 57, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[154010, 4949, 331, 8, 32, "Input"],
+Cell[154344, 4959, 5483, 160, 135, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[159864, 5124, 130, 2, 32, "Input"],
+Cell[159997, 5128, 1380, 22, 158, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[161414, 5155, 2124, 56, 77, "Input"],
+Cell[163541, 5213, 1479, 47, 62, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[165057, 5265, 2952, 74, 121, "Input"],
+Cell[168012, 5341, 2198, 73, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[170247, 5419, 453, 10, 32, "Input"],
+Cell[170703, 5431, 51701, 1456, 535, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[222441, 6892, 1036, 27, 32, "Input"],
+Cell[223480, 6921, 4442, 78, 518, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[227959, 7004, 130, 2, 32, "Input"],
+Cell[228092, 7008, 4910, 87, 608, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[233039, 7100, 451, 10, 32, "Input"],
+Cell[233493, 7112, 50796, 1426, 394, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[284326, 8543, 822, 24, 32, "Input"],
+Cell[285151, 8569, 4140, 72, 500, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[289328, 8646, 130, 2, 32, "Input"],
+Cell[289461, 8650, 4577, 74, 590, "Output"]
+}, Open ]]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[294087, 8730, 146, 2, 65, "Section"],
+Cell[CellGroupData[{
+Cell[294258, 8736, 2325, 64, 99, "Input"],
+Cell[296586, 8802, 3697, 151, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[300320, 8958, 243, 6, 32, "Input"],
+Cell[300566, 8966, 3346, 135, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[303949, 9106, 129, 2, 32, "Input"],
+Cell[304081, 9110, 1707, 66, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[305825, 9181, 494, 14, 32, "Input"],
+Cell[306322, 9197, 1633, 61, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[307992, 9263, 248, 6, 32, "Input"],
+Cell[308243, 9271, 1775, 70, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[310055, 9346, 132, 2, 32, "Input"],
+Cell[310190, 9350, 1729, 70, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[311956, 9425, 100, 1, 32, "Input"],
+Cell[312059, 9428, 1729, 70, 33, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[313837, 9504, 119, 1, 51, "Section"],
+Cell[CellGroupData[{
+Cell[313981, 9509, 381, 9, 32, "Input"],
+Cell[314365, 9520, 692, 21, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[315094, 9546, 323, 8, 32, "Input"],
+Cell[315420, 9556, 1481, 60, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[316938, 9621, 291, 8, 32, "Input"],
+Cell[317232, 9631, 1480, 60, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[318749, 9696, 258, 6, 32, "Input"],
+Cell[319010, 9704, 245, 6, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[319292, 9715, 1345, 35, 55, "Input"],
+Cell[320640, 9752, 1813, 68, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[322490, 9825, 1193, 33, 77, "Input"],
+Cell[323686, 9860, 1811, 68, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[325534, 9933, 265, 5, 32, "Input"],
+Cell[325802, 9940, 716, 22, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[326555, 9967, 804, 18, 32, "Input"],
+Cell[327362, 9987, 943, 25, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[328342, 10017, 597, 16, 32, "Input"],
+Cell[328942, 10035, 649, 18, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[329628, 10058, 717, 17, 32, "Input"],
+Cell[330348, 10077, 799, 22, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[331184, 10104, 641, 16, 32, "Input"],
+Cell[331828, 10122, 641, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[332506, 10146, 139, 2, 32, "Input"],
+Cell[332648, 10150, 1675, 54, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[334360, 10209, 180, 4, 32, "Input"],
+Cell[334543, 10215, 556, 15, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[335136, 10235, 132, 2, 32, "Input"],
+Cell[335271, 10239, 164, 2, 32, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[335472, 10246, 431, 11, 32, "Input"],
+Cell[335906, 10259, 473, 14, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[336416, 10278, 175, 4, 32, "Input"],
+Cell[336594, 10284, 874, 27, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[337505, 10316, 175, 4, 32, "Input"],
+Cell[337683, 10322, 603, 18, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[338323, 10345, 175, 4, 32, "Input"],
+Cell[338501, 10351, 908, 28, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[339446, 10384, 177, 4, 32, "Input"],
+Cell[339626, 10390, 626, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[340289, 10414, 365, 10, 32, "Input"],
+Cell[340657, 10426, 4041, 128, 137, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[344735, 10559, 128, 2, 32, "Input"],
+Cell[344866, 10563, 947, 16, 140, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[345850, 10584, 1487, 43, 77, "Input"],
+Cell[347340, 10629, 1000, 34, 62, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[348377, 10668, 1987, 53, 77, "Input"],
+Cell[350367, 10723, 1508, 54, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[351912, 10782, 487, 14, 32, "Input"],
+Cell[352402, 10798, 846, 28, 37, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[353285, 10831, 369, 10, 32, "Input"],
+Cell[353657, 10843, 5152, 162, 125, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[358846, 11010, 130, 2, 32, "Input"],
+Cell[358979, 11014, 1319, 23, 176, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[360335, 11042, 2402, 63, 121, "Input"],
+Cell[362740, 11107, 1645, 58, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[364422, 11170, 2308, 61, 77, "Input"],
+Cell[366733, 11233, 1686, 60, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[368456, 11298, 319, 8, 32, "Input"],
+Cell[368778, 11308, 12194, 353, 183, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[381009, 11666, 982, 27, 32, "Input"],
+Cell[381994, 11695, 1458, 28, 176, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[383489, 11728, 321, 8, 32, "Input"],
+Cell[383813, 11738, 12096, 347, 179, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[395946, 12090, 868, 25, 32, "Input"],
+Cell[396817, 12117, 1335, 24, 176, "Output"]
+}, Open ]]
+}, Closed]],
+Cell[CellGroupData[{
+Cell[398201, 12147, 128, 1, 51, "Section"],
+Cell[CellGroupData[{
+Cell[398354, 12152, 10155, 279, 297, "Input"],
+Cell[408512, 12433, 18093, 719, 77, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[426642, 13157, 302, 7, 32, "Input"],
+Cell[426947, 13166, 14073, 561, 55, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[441057, 13732, 2899, 77, 77, "Input"],
+Cell[443959, 13811, 8336, 330, 55, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[452332, 14146, 671, 19, 32, "Input"],
+Cell[453006, 14167, 8096, 322, 55, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[461139, 14494, 131, 2, 32, "Input"],
+Cell[461273, 14498, 4910, 182, 55, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[466220, 14685, 301, 8, 32, "Input"],
+Cell[466524, 14695, 4574, 173, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[471135, 14873, 294, 7, 32, "Input"],
+Cell[471432, 14882, 6324, 252, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[477793, 15139, 186, 3, 32, "Input"],
+Cell[477982, 15144, 6291, 251, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[484310, 15400, 454, 12, 32, "Input"],
+Cell[484767, 15414, 684, 28, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[485488, 15447, 336, 9, 32, "Input"],
+Cell[485827, 15458, 466, 19, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[486330, 15482, 1130, 31, 55, "Input"],
+Cell[487463, 15515, 1700, 69, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[489200, 15589, 355, 8, 32, "Input"],
+Cell[489558, 15599, 1686, 69, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[491281, 15673, 2035, 56, 77, "Input"],
+Cell[493319, 15731, 3318, 132, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[496674, 15868, 604, 16, 32, "Input"],
+Cell[497281, 15886, 641, 25, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[497959, 15916, 197, 4, 32, "Input"],
+Cell[498159, 15922, 1165, 47, 33, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[499361, 15974, 300, 7, 32, "Input"],
+Cell[499664, 15983, 7344, 271, 82, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[507045, 16259, 299, 7, 32, "Input"],
+Cell[507347, 16268, 6192, 226, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[513576, 16499, 282, 7, 32, "Input"],
+Cell[513861, 16508, 2161, 89, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[516059, 16602, 276, 7, 32, "Input"],
+Cell[516338, 16611, 5032, 214, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[521407, 16830, 277, 7, 32, "Input"],
+Cell[521687, 16839, 5039, 214, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[526763, 17058, 503, 14, 32, "Input"],
+Cell[527269, 17074, 594, 20, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[527900, 17099, 498, 14, 32, "Input"],
+Cell[528401, 17115, 591, 19, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[529029, 17139, 869, 23, 32, "Input"],
+Cell[529901, 17164, 651, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[530589, 17188, 869, 23, 32, "Input"],
+Cell[531461, 17213, 575, 18, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[532073, 17236, 867, 23, 32, "Input"],
+Cell[532943, 17261, 630, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[533610, 17285, 869, 23, 32, "Input"],
+Cell[534482, 17310, 632, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[535151, 17334, 867, 23, 32, "Input"],
+Cell[536021, 17359, 552, 18, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[536610, 17382, 867, 23, 32, "Input"],
+Cell[537480, 17407, 643, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[538160, 17431, 867, 23, 32, "Input"],
+Cell[539030, 17456, 559, 18, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[539626, 17479, 867, 23, 32, "Input"],
+Cell[540496, 17504, 594, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[541127, 17528, 867, 23, 32, "Input"],
+Cell[541997, 17553, 592, 19, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[542626, 17577, 869, 23, 32, "Input"],
+Cell[543498, 17602, 556, 18, 58, "Output"]
+}, Open ]],
+Cell[544069, 17623, 157, 3, 33, "Text"],
+Cell[CellGroupData[{
+Cell[544251, 17630, 266, 6, 32, "Input"],
+Cell[544520, 17638, 458, 14, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[545015, 17657, 130, 2, 32, "Input"],
+Cell[545148, 17661, 129, 3, 46, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[545314, 17669, 360, 9, 32, "Input"],
+Cell[545677, 17680, 349, 10, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[546063, 17695, 262, 6, 32, "Input"],
+Cell[546328, 17703, 472, 14, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[546837, 17722, 130, 2, 32, "Input"],
+Cell[546970, 17726, 136, 3, 46, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[547143, 17734, 372, 9, 32, "Input"],
+Cell[547518, 17745, 364, 10, 58, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[547919, 17760, 333, 8, 32, "Input"],
+Cell[548255, 17770, 4899, 151, 137, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[553191, 17926, 130, 2, 32, "Input"],
+Cell[553324, 17930, 1213, 21, 190, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[554574, 17956, 1662, 45, 77, "Input"],
+Cell[556239, 18003, 1175, 37, 62, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[557451, 18045, 2853, 74, 121, "Input"],
+Cell[560307, 18121, 2070, 74, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[562414, 18200, 331, 8, 32, "Input"],
+Cell[562748, 18210, 3974, 125, 137, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[566759, 18340, 127, 2, 32, "Input"],
+Cell[566889, 18344, 917, 16, 154, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[567843, 18365, 1324, 39, 77, "Input"],
+Cell[569170, 18406, 980, 34, 62, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[570187, 18445, 1917, 49, 77, "Input"],
+Cell[572107, 18496, 1447, 51, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[573591, 18552, 331, 8, 32, "Input"],
+Cell[573925, 18562, 4980, 151, 137, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[578942, 18718, 132, 2, 32, "Input"],
+Cell[579077, 18722, 1167, 19, 172, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[580281, 18746, 1750, 50, 77, "Input"],
+Cell[582034, 18798, 1344, 43, 62, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[583415, 18846, 2736, 71, 121, "Input"],
+Cell[586154, 18919, 1896, 68, 35, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[588087, 18992, 402, 9, 32, "Input"],
+Cell[588492, 19003, 60644, 1705, 635, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[649173, 20713, 888, 25, 32, "Input"],
+Cell[650064, 20740, 5629, 98, 712, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[655730, 20843, 130, 2, 32, "Input"],
+Cell[655863, 20847, 6299, 116, 802, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[662199, 20968, 403, 9, 32, "Input"],
+Cell[662605, 20979, 59304, 1666, 492, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[721946, 22650, 823, 24, 32, "Input"],
+Cell[722772, 22676, 5573, 102, 712, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[728382, 22783, 129, 2, 32, "Input"],
+Cell[728514, 22787, 6185, 114, 802, "Output"]
+}, Open ]]
+}, Open ]]
+}, Open ]]
+}
+]
+*)
+
+(* End of internal cache information *)
Property changes on: branches/DMNLO/Workspace/Patrick/Mathematica Notebooks/GramDet.nb
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property

File Metadata

Mime Type
application/octet-stream
Expires
Thu, Oct 3, 6:37 PM (1 d, 23 h)
Storage Engine
chunks
Storage Format
Chunks
Storage Handle
XDhAJKxzxxWd
Default Alt Text
(6 MB)

Event Timeline