(*********************************************************************** 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[ 51499, 1410]*) (*NotebookOutlinePosition[ 52303, 1440]*) (* CellTagsIndexPosition[ 52225, 1434]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["GluonVertex", "Subsection", CellTags->"GluonVertex"], Cell[CellGroupData[{ Cell["Description", "Subsubsection"], Cell["Note: All momenta are flowing into the vertex.", "Text"], Cell["\<\ GluonVertex[{p,mu,a}, {q,nu,b}, {k,la,c}] or GluonVertex[p,mu,a , \ q,nu,b , k,la,c ] yields the 3-gluon vertex. GluonVertex[{p,mu}, {q,nu}, \ {k,la}] yields the 3-gluon vertex without color structure and the coupling \ constant. GluonVertex[{p,mu,a}, {q,nu,b}, {k,la,c}, {s,si,d}] or \ GluonVertex[{mu,a}, {nu,b}, {la,c}, {si,d}] or GluonVertex[p,mu,a , q,nu,b , \ k,la,c , s,si,d] or GluonVertex[ mu,a , nu,b , la,c , si,d ] yields the \ 4-gluon vertex. The dimension and the name of the coupling constant are \ determined by the options Dimension and CouplingConstant.\ \>", "Text"], Cell["GV can be used as an abbreviation of GluonVertex.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(GV\)], "Input"], Cell[BoxData[ \(TraditionalForm\`GluonVertex\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Options[GluonVertex]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`{CouplingConstant \[Rule] g\_s, Dimension \[Rule] D, Explicit \[Rule] False, \[CapitalKoppa] \[Rule] False}\)], "Output"] }, Open ]], Cell[TextData[{ "See also: ", " ", ButtonBox["GluonGhostVertex", ButtonData:>"GluonGhostVertex", ButtonStyle->"Hyperlink", ButtonNote->"GluonGhostVertex"], ", ", ButtonBox["GluonPropagator", ButtonData:>"GluonPropagator", ButtonStyle->"Hyperlink", ButtonNote->"GluonPropagator"], "." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Examples", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ \(GluonVertex[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(g\_s\), " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", \(\(,\)\(\ \)\), "\[NoBreak]", FormBox["q", "TraditionalForm"], "\[NoBreak]", \(\(,\)\(\ \)\), "\[NoBreak]", FormBox["r", "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[CellGroupData[{ Cell[BoxData[ \(GluonVertex[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}] // Explicit\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(g\_s\), " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["r", "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["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "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[CellGroupData[{ Cell[BoxData[ \(GluonVertex[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}]\)], "Input"], Cell[BoxData[ \(TraditionalForm\`\(V\^\(\[Mu]\[NoBreak]\[Nu]\[NoBreak]\[Rho]\)\)( p\[NoBreak]\(\(,\)\(\ \)\)\[NoBreak]q\[NoBreak]\(\(,\)\(\ \ \)\)\[NoBreak]r)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(GluonVertex[{p, \[Mu]}, {q, \[Nu]}, {r, \[Rho]}] // Explicit\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox[ FormBox["r", "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["p", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["r", "TraditionalForm"], FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]]}], "+", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["p", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox[ FormBox["q", "TraditionalForm"], FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]]}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(GluonVertex[{p, \[Mu], a}, {q, \[Nu], b}, {r, \[Rho], c}, {s, \[Sigma], d}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-\[ImaginaryI]\), " ", \(g\_s\%2\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u9", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u9", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u9", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u9", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u9", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u9", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(GluonVertex[{\[Mu], a}, {\[Nu], b}, {\[Rho], c}, {\[Sigma], d}]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-\[ImaginaryI]\), " ", \(g\_s\%2\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u10", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(GluonVertex[\[Mu], a, \[Nu], b, \[Rho], c, \[Sigma], d]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-\[ImaginaryI]\), " ", \(g\_s\%2\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u11", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u11", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u11", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u11", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Mu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Sigma]", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["\[Nu]", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["\[Rho]", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["a", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["b", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u11", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["c", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["d", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u11", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], TraditionalForm]], "Output"] }, Open ]], Cell["\<\ A very convenient way to enter diagrams by hand is to label each \ line hitting a vertex by a number and put this number after the inflowing \ momentum.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(GV[p, 1, q, 2, r, 3]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(g\_s\), " ", RowBox[{ SuperscriptBox["V", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]], "(", RowBox[{ FormBox["p", "TraditionalForm"], "\[NoBreak]", \(\(,\)\(\ \)\), "\[NoBreak]", FormBox["q", "TraditionalForm"], "\[NoBreak]", \(\(,\)\(\ \)\), "\[NoBreak]", FormBox["r", "TraditionalForm"]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci3", "TraditionalForm"], "TraditionalForm"]}]]}], TraditionalForm]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(GV[p, 1, q, 2, r, 3, s, 4]\)], "Input"], Cell[BoxData[ FormBox[ RowBox[{\(-\[ImaginaryI]\), " ", \(g\_s\%2\), " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u12", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u12", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u12", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u12", "TraditionalForm"], "TraditionalForm"]}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]]}], "-", RowBox[{ SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li4", "TraditionalForm"], "TraditionalForm"]}]], " ", SuperscriptBox["g", RowBox[{ FormBox[ FormBox["li2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["li3", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci1", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci2", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u12", "TraditionalForm"], "TraditionalForm"]}]], " ", SubscriptBox["f", RowBox[{ FormBox[ FormBox["ci3", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["ci4", "TraditionalForm"], "TraditionalForm"], "\[NoBreak]", FormBox[ FormBox["u12", "TraditionalForm"], "TraditionalForm"]}]]}]}], ")"}]}], 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->{ "GluonVertex"->{ Cell[1739, 51, 60, 1, 40, "Subsection", CellTags->"GluonVertex"]} } *) (*CellTagsIndex CellTagsIndex->{ {"GluonVertex", 52123, 1427} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 60, 1, 40, "Subsection", CellTags->"GluonVertex"], Cell[CellGroupData[{ Cell[1824, 56, 36, 0, 36, "Subsubsection"], Cell[1863, 58, 62, 0, 29, "Text"], Cell[1928, 60, 595, 9, 127, "Text"], Cell[2526, 71, 65, 0, 29, "Text"], Cell[CellGroupData[{ Cell[2616, 75, 35, 1, 31, "Input"], Cell[2654, 78, 62, 1, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2753, 84, 53, 1, 31, "Input"], Cell[2809, 87, 165, 2, 47, "Output"] }, Open ]], Cell[2989, 92, 331, 13, 29, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[3357, 110, 33, 0, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[3415, 114, 90, 1, 70, "Input"], Cell[3508, 117, 1348, 40, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4893, 162, 109, 2, 70, "Input"], Cell[5005, 166, 4428, 126, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9470, 297, 81, 1, 70, "Input"], Cell[9554, 300, 182, 3, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9773, 308, 93, 1, 70, "Input"], Cell[9869, 311, 3492, 110, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13398, 426, 117, 2, 70, "Input"], Cell[13518, 430, 8995, 224, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22550, 659, 105, 2, 70, "Input"], Cell[22658, 663, 9001, 224, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31696, 892, 88, 1, 70, "Input"], Cell[31787, 895, 9001, 224, 70, "Output"] }, Open ]], Cell[40803, 1122, 176, 4, 70, "Text"], Cell[CellGroupData[{ Cell[41004, 1130, 53, 1, 70, "Input"], Cell[41060, 1133, 1347, 40, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42444, 1178, 59, 1, 70, "Input"], Cell[42506, 1181, 8953, 224, 70, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)