(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 308876, 7537]*) (*NotebookOutlinePosition[ 309705, 7567]*) (* CellTagsIndexPosition[ 309618, 7561]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Twist2GluonOperator", "Subsection", CellTags->"Twist2GluonOperator"], Cell[CellGroupData[{ Cell["Description", "Subsubsection"], Cell["\<\ Twist2GluonOperator[{p, mu, a}, {nu, b}] or Twist2GluonOperator[p, \ {mu, a}, {nu, b}] or Twist2GluonOperator[p, mu,a, nu,b] yields the 2-gluon \ operator (p is ingoing momentum corresponding to Lorentz index mu). \ Twist2GluonOperator[{p,mu,a}, {q,nu,b}, {k,la,c}] or Twist2GluonOperator[ \ p,mu,a , q,nu,b , k,la,c ] gives the 3-gluon operator. \ Twist2GluonOperator[{p,mu,a}, {q,nu,b}, {k,la,c}, {s,si,d}] or \ Twist2GluonOperator[p,mu,a , q,nu,b , k,la,c , s,si,d] yields the 4-Gluon \ operator. The dimension is determined by the option and Dimension. The \ setting of the option Polarization (unpolarized: 0; polarized: 1) determines \ whether the unpolarized or polarized feynman rule is returned. With the \ setting Explicit to False the color-structure and the (1+(-1)^OPEm) (for \ polarized: (1-(-1)^OPEm)) is extracted and the color indices are omitted in \ the arguments of Twist2GluonOperator.\ \>", "Text"], Cell[TextData[{ "See also: ", " ", ButtonBox["Twist2QuarkOperator", ButtonData:>"Twist2QuarkOperator", ButtonStyle->"Hyperlink", ButtonNote->"Twist2QuarkOperator"], "." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Polarized case, zero-momentum insertion ", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(SetOptions[Twist2GluonOperator, \ Polarization\ -> \ 1, Explicit -> False, \ ZeroMomentumInsertion\ -> \ True]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{CouplingConstant \[Rule] g\_s, Dimension \[Rule] D, Polarization \[Rule] 1, Explicit \[Rule] False, ZeroMomentumInsertion \[Rule] True}\)], "Output"] }, Open ]], Cell["2-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[p, {\[Mu], a}, {\[Nu], b}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "-", FormBox[\(\((\(-1\))\)\^m\), "TraditionalForm"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}], "G2"], "(", FormBox["p", "TraditionalForm"], ")"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[p, {\[Mu], a}, {\[Nu], b}, Explicit -> True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{"1", "-", FormBox[\(\((\(-1\))\)\^m\), "TraditionalForm"]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 1\)], "TraditionalForm"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[p, {\[Mu]}, {\[Nu]}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox["\[Mu]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Nu]", "TraditionalForm"]}], "G2"], "(", FormBox["p", "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[p, {\[Mu]}, {\[Nu]}, Explicit -> True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 1\)], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell["3-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(g\_s\), " ", RowBox[{"(", RowBox[{"1", "-", FormBox[\(\((\(-1\))\)\^m\), "TraditionalForm"]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}], "G3"], "(", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["p", "TraditionalForm"], ")"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox["\[Nu]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Rho]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Mu]", "TraditionalForm"]}], "G3"], "(", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["p", "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}, Explicit -> True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(m - 2\)]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(m - 2\)]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{\(\((\(-1\))\)\^i\), " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{\(\((\(-1\))\)\^i\), " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{\(\((\(-1\))\)\^i\), " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]], Cell["4-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}, {s, \[Sigma], d}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ "\[ImaginaryI]", " ", \((1 - \((\(-1\))\)\^m)\), " ", \(g\_s\%2\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c112", "TraditionalForm"], "TraditionalForm"]}]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c112", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}], "-", RowBox[{ SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c112", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c112", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}], "+", RowBox[{ SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c112", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c112", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["r", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["p", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}, {s, \[Sigma]}]\ \)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox["\[Mu]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Nu]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Rho]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Sigma]", "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}, {s, \[Sigma]}, Explicit -> True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(m - 2\)]}], "-", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["s", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["s", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[\(\[Sum]\+\(j = 0\)\%\(m - 4\)\*"\<\"\"\>"\), HoldForm], "TraditionalForm"], "\[NoBreak]", FormBox[\(\[Sum]\+\(i = 0\)\%j\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-j\) + m - 4\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(j - i\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], ")"}]}], ")"}], "i"]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["s", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["s", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[\(\[Sum]\+\(j = 0\)\%\(m - 4\)\*"\<\"\"\>"\), HoldForm], "TraditionalForm"], "\[NoBreak]", FormBox[\(\[Sum]\+\(i = 0\)\%j\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-j\) + m - 4\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(j - i\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], ")"}]}], ")"}], "i"]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"], "\[NoBreak]", FormBox["s", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["s", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[\(\[Sum]\+\(j = 0\)\%\(m - 4\)\*"\<\"\"\>"\), HoldForm], "TraditionalForm"], "\[NoBreak]", FormBox[\(\[Sum]\+\(i = 0\)\%j\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-j\) + m - 4\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(j - i\)]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[\(\[Sum]\+\(j = 0\)\%\(m - 4\)\*"\<\"\"\>"\), HoldForm], "TraditionalForm"], "\[NoBreak]", FormBox[\(\[Sum]\+\(i = 0\)\%j\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-j\) + m - 4\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(j - i\)]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Unpolarized case, zero-momentum insertion", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(SetOptions[Twist2GluonOperator, Polarization \[Rule] 0, ZeroMomentumInsertion \[Rule] True]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{CouplingConstant \[Rule] g\_s, Dimension \[Rule] D, Polarization \[Rule] 0, Explicit \[Rule] False, ZeroMomentumInsertion \[Rule] True}\)], "Output"] }, Open ]], Cell["2-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[p, {\[Mu], a}, {\[Nu], b}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(1\/2\), " ", RowBox[{"(", RowBox[{ FormBox[\(\((\(-1\))\)\^m\), "TraditionalForm"], "+", "1"}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}], "G2"], "(", FormBox["p", "TraditionalForm"], ")"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[p, {\[Mu], a}, {\[Nu], b}, Explicit -> True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(1\/2\), " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[\(\((\(-1\))\)\^m\), "TraditionalForm"], "+", "1"}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[p, {\[Mu]}, {\[Nu]}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox["\[Mu]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Nu]", "TraditionalForm"]}], "G2"], "(", FormBox["p", "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[p, {\[Mu]}, {\[Nu]}, Explicit -> True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], "2"]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"]}], TraditionalForm]], "Output"] }, Open ]], Cell["3-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-\(1\/2\)\), " ", "\[ImaginaryI]", " ", \(g\_s\), " ", RowBox[{"(", RowBox[{ FormBox[\(\((\(-1\))\)\^m\), "TraditionalForm"], "+", "1"}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]}], "G3"], "(", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["p", "TraditionalForm"], ")"}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox["\[Nu]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Rho]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Mu]", "TraditionalForm"]}], "G3"], "(", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["p", "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}, Explicit -> True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"]}]}], TraditionalForm]], "Output"] }, Open ]], Cell["4-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}, {s, \[Sigma], d}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(1\/2\), " ", \((1 + \((\(-1\))\)\^m)\), " ", \(g\_s\%2\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c113", "TraditionalForm"], "TraditionalForm"]}]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c113", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}], "-", RowBox[{ SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c113", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c113", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}], "+", RowBox[{ SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c113", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c113", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["r", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["p", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}, {s, \[Sigma]}]\ \)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox["\[Mu]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Nu]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Rho]", "TraditionalForm"], "\[VeryThinSpace]", FormBox["\[Sigma]", "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}, {s, \[Sigma]}, Explicit -> True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(m - 2\)]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["s", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["s", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[\(\[Sum]\+\(j = 0\)\%\(m - 4\)\*"\<\"\"\>"\), HoldForm], "TraditionalForm"], "\[NoBreak]", FormBox[\(\[Sum]\+\(i = 0\)\%j\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-j\) + m - 4\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(j - i\)]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[\(\[Sum]\+\(j = 0\)\%\(m - 4\)\*"\<\"\"\>"\), HoldForm], "TraditionalForm"], "\[NoBreak]", FormBox[\(\[Sum]\+\(i = 0\)\%j\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-j\) + m - 4\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(j - i\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], ")"}]}], ")"}], "i"]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["s", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[\(\[Sum]\+\(j = 0\)\%\(m - 4\)\*"\<\"\"\>"\), HoldForm], "TraditionalForm"], "\[NoBreak]", FormBox[\(\[Sum]\+\(i = 0\)\%j\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-j\) + m - 4\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], ")"}], "i"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(j - i\)]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[ TagBox[\(\[Sum]\+\(j = 0\)\%\(m - 4\)\*"\<\"\"\>"\), HoldForm], "TraditionalForm"], "\[NoBreak]", FormBox[\(\[Sum]\+\(i = 0\)\%j\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-j\) + m - 4\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(j - i\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], ")"}]}], ")"}], "i"]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["s", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}]}], ")"}]}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Advanced Examples", "Subsubsection"], Cell["The setting All for Explicit performs the sums.", "Text"], Cell[BoxData[ \(SetOptions[Twist2GluonOperator, \ Polarization\ -> \ 1, \ Explicit -> All]; \)], "Input"], Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}]; \)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Polarized case, non-zero-momentum insertion", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(SetOptions[Twist2GluonOperator, \ Polarization\ -> \ 1, ZeroMomentumInsertion -> False]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{CouplingConstant \[Rule] g\_s, Dimension \[Rule] D, Polarization \[Rule] 1, Explicit \[Rule] All, ZeroMomentumInsertion \[Rule] False}\)], "Output"] }, Open ]], Cell["2-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, q}, {\[Mu], a}, {\[Nu], b}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(1\/2\), " ", "\[ImaginaryI]", " ", \((1 - \((\(-1\))\)\^m)\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"]}]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["3-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(g\_s\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(m - 2\)]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(m - 2\)]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["r", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["q", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "m"], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "3"]}], "+", RowBox[{"2", " ", RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"]}], "+", RowBox[{ RowBox[{"(", FormBox[ TagBox[ RowBox[{\(\[Sum]\+\(i = 0\)\%\(m - 3\)\), RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], \(\(-i\) + m - 3\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "i"]}]}], HoldForm], "TraditionalForm"], ")"}], " ", SuperscriptBox[ RowBox[{"(", FormBox[ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "TraditionalForm"], ")"}], "2"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}]}], ")"}]}], ")"}]}], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], "m"]}], "+", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["4-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}, {s, \[Sigma], d}, Explicit \[Rule] False]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ "\[ImaginaryI]", " ", \((1 - \((\(-1\))\)\^m)\), " ", \(g\_s\%2\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c114", "TraditionalForm"], "TraditionalForm"]}]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c114", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}], "-", RowBox[{ SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c114", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c114", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}], "+", RowBox[{ SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c114", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c114", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["r", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["p", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Unpolarized case, non-zero-momentum insertion", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(SetOptions[Twist2GluonOperator, \ Polarization\ -> \ 0, ZeroMomentumInsertion -> False]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{CouplingConstant \[Rule] g\_s, Dimension \[Rule] D, Polarization \[Rule] 0, Explicit \[Rule] All, ZeroMomentumInsertion \[Rule] False}\)], "Output"] }, Open ]], Cell["2-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, q}, {\[Mu], a}, {\[Nu], b}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-\(1\/2\)\), " ", \((1 + \((\(-1\))\)\^m)\), " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"], "+", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["3-gluon legs", "Text"], Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}]; \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-\(1\/2\)\), " ", \((1 + \((\(-1\))\)\^m)\), " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[Mu]", "TraditionalForm"], FormBox[ FormBox["q", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["q", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["\[Mu]", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["q", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["\[Mu]", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["\[Mu]", "TraditionalForm"]}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"], "+", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["\[Mu]", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}, Explicit -> True]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-\(1\/2\)\), " ", \((1 + \((\(-1\))\)\^m)\), " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[Mu]", "TraditionalForm"], FormBox[ FormBox["q", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["q", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["\[Mu]", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["q", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["\[Mu]", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["r", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["\[Mu]", "TraditionalForm"]}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"], "+", FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["\[Mu]", "TraditionalForm"]}], ")"}], \(m - 2\)], "TraditionalForm"]}], ")"}], " ", SubscriptBox["\[Delta]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell["4-gluon legs", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}, {s, \[Sigma], d}, Explicit \[Rule] False]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(1\/2\), " ", \((1 + \((\(-1\))\)\^m)\), " ", \(g\_s\%2\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c115", "TraditionalForm"], "TraditionalForm"]}]]}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c115", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}], "-", RowBox[{ SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c115", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c115", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["p", "TraditionalForm"], ",", FormBox["r", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}], "+", RowBox[{ SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c115", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c115", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["O", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[VeryThinSpace]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}], "G4"], "(", FormBox["r", "TraditionalForm"], ",", FormBox["q", "TraditionalForm"], ",", FormBox["p", "TraditionalForm"], ",", FormBox["s", "TraditionalForm"], ")"}], ")"}]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell["Suppress the lengthy output.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(Short[ Twist2GluonOperator[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}, {s, \[Sigma]}, Explicit -> True], 6]\)], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(m - 2\)]}], "+", \(\[LeftSkeleton]8\[RightSkeleton]\), "+", \(\[LeftSkeleton]1\[RightSkeleton]\), "-", RowBox[{ RowBox[{"(", RowBox[{ FormBox[\(\[Sum]\+\(j = 0\)\%\(m - 4\)\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[\(\[Sum]\+\(i = 0\)\%j\*"\<\"\"\>"\), "TraditionalForm"], "\[NoBreak]", FormBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], \(\(-j\) + m - 4\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}]}], "-", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], ")"}], \(j - i\)], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], ")"}]}], ")"}], "i"]}], "TraditionalForm"]}], ")"}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ FormBox["s", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}]}], "-", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]], " ", RowBox[{ FormBox["q", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["s", "TraditionalForm"]}]}]}], ")"}]}]}], (Short[ #, 6]&)], TraditionalForm]], "Output"] }, Open ]], Cell["The setting Explicit -> All performs the sums.", "Text"], Cell[BoxData[ \(SetOptions[Twist2GluonOperator, \ Polarization\ -> \ 1, \ Explicit -> All]; \)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Short[ Twist2GluonOperator[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}], 5]\)], "Input"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{\(g\_s\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]]}], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], \(m - 2\)]}], "+", \(\[LeftSkeleton]20\[RightSkeleton]\), "+", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", FormBox["p", "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["\[CapitalDelta]", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]], " ", \((\[LeftSkeleton]1\[RightSkeleton])\)}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], "+", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[Epsilon]", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox["\[CapitalDelta]", "TraditionalForm"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}], ")"}], "m"]}], "+", RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], ")"}], "m"], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]}], ")"}]}], RowBox[{ RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["q", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["r", "TraditionalForm"]}], " ", RowBox[{ FormBox["\[CapitalDelta]", "TraditionalForm"], "\[NoBreak]", "\[CenterDot]", "\[NoBreak]", FormBox["p", "TraditionalForm"]}]}]]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"]}]]}], (Short[ #, 5]&)], TraditionalForm]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for X", ScreenRectangle->{{0, 1024}, {0, 768}}, WindowSize->{520, 485}, WindowMargins->{{Automatic, 244}, {114, Automatic}}, StyleDefinitions -> "Demo.nb" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{ "Twist2GluonOperator"->{ Cell[1739, 51, 76, 1, 40, "Subsection", CellTags->"Twist2GluonOperator"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Twist2GluonOperator", 309508, 7554} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 76, 1, 40, "Subsection", CellTags->"Twist2GluonOperator"], Cell[CellGroupData[{ Cell[1840, 56, 36, 0, 36, "Subsubsection"], Cell[1879, 58, 930, 14, 197, "Text"], Cell[2812, 74, 200, 8, 29, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[3049, 87, 65, 0, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[3139, 91, 152, 2, 47, "Input"], Cell[3294, 95, 201, 3, 65, "Output"] }, Open ]], Cell[3510, 101, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[3563, 105, 79, 1, 70, "Input"], Cell[3645, 108, 1033, 30, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4715, 143, 104, 2, 70, "Input"], Cell[4822, 147, 1388, 40, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6247, 192, 73, 1, 70, "Input"], Cell[6323, 195, 341, 10, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6701, 210, 91, 1, 70, "Input"], Cell[6795, 213, 912, 26, 70, "Output"] }, Open ]], Cell[7722, 242, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[7775, 246, 107, 2, 70, "Input"], Cell[7885, 250, 1442, 42, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9364, 297, 89, 1, 70, "Input"], Cell[9456, 300, 540, 16, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10033, 321, 114, 2, 70, "Input"], Cell[10150, 325, 15901, 394, 70, "Output"] }, Open ]], Cell[26066, 722, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[26119, 726, 125, 2, 70, "Input"], Cell[26247, 730, 7022, 179, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33306, 914, 106, 2, 70, "Input"], Cell[33415, 918, 684, 20, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34136, 943, 129, 2, 70, "Input"], Cell[34268, 947, 34931, 846, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69248, 1799, 66, 0, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[69339, 1803, 131, 2, 70, "Input"], Cell[69473, 1807, 201, 3, 70, "Output"] }, Open ]], Cell[69689, 1813, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[69742, 1817, 79, 1, 70, "Input"], Cell[69824, 1820, 1026, 30, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70887, 1855, 104, 2, 70, "Input"], Cell[70994, 1859, 3958, 106, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74989, 1970, 73, 1, 70, "Input"], Cell[75065, 1973, 341, 10, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75443, 1988, 91, 1, 70, "Input"], Cell[75537, 1991, 3489, 92, 70, "Output"] }, Open ]], Cell[79041, 2086, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[79094, 2090, 107, 2, 70, "Input"], Cell[79204, 2094, 1484, 42, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80725, 2141, 89, 1, 70, "Input"], Cell[80817, 2144, 540, 16, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81394, 2165, 114, 2, 70, "Input"], Cell[81511, 2169, 26664, 665, 70, "Output"] }, Open ]], Cell[108190, 2837, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[108243, 2841, 125, 2, 70, "Input"], Cell[108371, 2845, 7008, 178, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115416, 3028, 106, 2, 70, "Input"], Cell[115525, 3032, 684, 20, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116246, 3057, 129, 2, 70, "Input"], Cell[116378, 3061, 50443, 1270, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[166870, 4337, 42, 0, 70, "Subsubsection"], Cell[166915, 4339, 63, 0, 70, "Text"], Cell[166981, 4341, 117, 2, 70, "Input"], Cell[167101, 4345, 109, 2, 70, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[167247, 4352, 68, 0, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[167340, 4356, 128, 2, 70, "Input"], Cell[167471, 4360, 200, 3, 70, "Output"] }, Open ]], Cell[167686, 4366, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[167739, 4370, 84, 1, 70, "Input"], Cell[167826, 4373, 5229, 123, 70, "Output"] }, Open ]], Cell[173070, 4499, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[173123, 4503, 107, 2, 70, "Input"], Cell[173233, 4507, 86122, 1747, 70, "Output"] }, Open ]], Cell[259370, 6257, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[259423, 6261, 149, 2, 70, "Input"], Cell[259575, 6265, 7022, 179, 70, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[266646, 6450, 70, 0, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[266741, 6454, 128, 2, 70, "Input"], Cell[266872, 6458, 200, 3, 70, "Output"] }, Open ]], Cell[267087, 6464, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[267140, 6468, 84, 1, 70, "Input"], Cell[267227, 6471, 4498, 118, 70, "Output"] }, Open ]], Cell[271740, 6592, 28, 0, 70, "Text"], Cell[271771, 6594, 109, 2, 70, "Input"], Cell[CellGroupData[{ Cell[271905, 6600, 89, 1, 70, "Input"], Cell[271997, 6603, 4499, 118, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[276533, 6726, 114, 2, 70, "Input"], Cell[276650, 6730, 4499, 118, 70, "Output"] }, Open ]], Cell[281164, 6851, 28, 0, 70, "Text"], Cell[CellGroupData[{ Cell[281217, 6855, 149, 2, 70, "Input"], Cell[281369, 6859, 7008, 178, 70, "Output"] }, Open ]], Cell[288392, 7040, 44, 0, 70, "Text"], Cell[CellGroupData[{ Cell[288461, 7044, 148, 3, 70, "Input"], Cell[288612, 7049, 11333, 274, 70, "Output"] }, Open ]], Cell[299960, 7326, 62, 0, 70, "Text"], Cell[300025, 7328, 117, 2, 70, "Input"], Cell[CellGroupData[{ Cell[300167, 7334, 122, 3, 70, "Input"], Cell[300292, 7339, 8544, 193, 70, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)